GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/06-業務管理系統/合約報價單.vb

Imports System.IO
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Public Class 合約報價單
    ReadOnly ds4, ds7, ds8, ds9, ds13, ds10, ds11, ds16 As New DataSet
    Dim KKK2, 物料規格, ESTR, 目前選擇, 條件選擇 As String
    Dim EDR, A1, A2, A3, B2, B3, AA1, AA2, AA3, BB2, BB3, OX1, OY1, OY2, 選取位置, NUM1, DGV_X, DGV_Y, XN1, XN2 As Integer
    Dim 啟動運算, 已超出, 放大, 不再動作1, 簽回檔, 複製報價, 介面啟動 As Boolean
    Dim 人民幣匯率, 美金匯率, 印尼匯率, 匯率1 As Double
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Private Sub Set_主管清單()
        Dim ds1 As New DataSet : 主管_dgv.DataSource = Nothing : ds1.Clear()
        主管_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主管_dgv.ColumnHeadersHeight = 25
        主管_dgv.AllowUserToAddRows = False
        主管_dgv.RowTemplate.Height = 45
        SQL_系統組織結構圖_單位主管1()
        da.Fill(ds1) : 主管_dgv.DataSource = ds1.Tables(0) : conn.Close()
        主管_dgv.Columns(0).FillWeight = 100 : 主管_dgv.Columns(1).FillWeight = 50 : 主管_dgv.Columns(2).FillWeight = 150
    End Sub
    Private Sub Set_合約清單1()
        Dim ds6 As New DataSet
        合約1_dgv.DataSource = Nothing : ds6.Clear()
        合約1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約1_dgv.ColumnHeadersHeight = 25 : 合約1_dgv.AllowUserToAddRows = False
        PA = 關鍵字搜尋1_tb.Text : PA46 = 合約編號2_cb.Text
        SQL_合約清單_報價用()
        da.Fill(ds6) : 合約1_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約1_dgv.Columns(0).FillWeight = 130 : 合約1_dgv.Columns("工程名稱_中").FillWeight = 280 : 合約1_dgv.Columns("簽回").FillWeight = 40 : 合約1_dgv.Columns("審核通過").FillWeight = 40
        合約1_dgv.Columns("停止").FillWeight = 40
        For i As Integer = 1 To 38 : 合約1_dgv.Columns(i).Visible = False : Next
        For i As Integer = 0 To 合約1_dgv.Rows.Count - 1
            If IsDBNull(合約1_dgv("停止", i).Value) = True Then : 合約1_dgv("停止", i).Value = False : End If
            If IsDBNull(合約1_dgv("簽回", i).Value) = True Then : 合約1_dgv("簽回", i).Value = False : End If
        Next
        合約1_dgv.Columns("工程名稱_中").Visible = True
    End Sub
    Private Sub Set_合約報價明細表1()
        Dim ds14 As New DataSet
        報價明細表2_dgv.DataSource = Nothing : ds14.Clear() : 報價明細表2_dgv.Columns.Clear()
        報價明細表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        報價明細表2_dgv.ColumnHeadersHeight = 40 : 報價明細表2_dgv.AllowUserToAddRows = False : 報價明細表2_dgv.RowTemplate.Height = 45
        報價明細表2_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True
        PA = 合約編號_1_tb.Text : SQL_合約報價明細表()
        da.Fill(ds14) : 報價明細表2_dgv.DataSource = ds14.Tables(0) : conn.Close()

        報價明細表2_dgv.Columns(0).FillWeight = 50 : 報價明細表2_dgv.Columns(1).FillWeight = 50 : 報價明細表2_dgv.Columns(2).FillWeight = 200
        報價明細表2_dgv.Columns(3).FillWeight = 50 : 報價明細表2_dgv.Columns(4).FillWeight = 50 : 報價明細表2_dgv.Columns(5).FillWeight = 80
        報價明細表2_dgv.Columns(6).FillWeight = 80 : 報價明細表2_dgv.Columns(7).FillWeight = 100 : 報價明細表2_dgv.Columns(8).FillWeight = 50
        報價明細表2_dgv.Columns(34).FillWeight = 80 : 報價明細表2_dgv.Columns(33).FillWeight = 40 : 報價明細表2_dgv.Columns(6).FillWeight = 50
        報價明細表2_dgv.Columns(42).FillWeight = 20 : 報價明細表2_dgv.Columns(43).FillWeight = 20 : 報價明細表2_dgv.Columns(44).FillWeight = 20
        報價明細表2_dgv.Columns(45).FillWeight = 20 : 報價明細表2_dgv.Columns(46).FillWeight = 20 : 報價明細表2_dgv.Columns(47).FillWeight = 20
        報價明細表2_dgv.Columns(48).FillWeight = 20 : 報價明細表2_dgv.Columns(49).FillWeight = 20 : 報價明細表2_dgv.Columns(50).FillWeight = 20
        報價明細表2_dgv.Columns(50).FillWeight = 20 : 報價明細表2_dgv.Columns("料號").FillWeight = 30 : 報價明細表2_dgv.Columns("S").Visible = False
        For I As Integer = 0 To 58 : 報價明細表2_dgv.Columns(I).Visible = False : Next
        報價明細表2_dgv.Columns("QTY").DefaultCellStyle.Format = "#,##0"
        報價明細表2_dgv.Columns("UNIT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        報價明細表2_dgv.Columns("QTY").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        報價明細表2_dgv.Columns("ITEM").Visible = True : 報價明細表2_dgv.Columns("DESCRIPTION").Visible = True : 報價明細表2_dgv.Columns("UNIT").Visible = True
        報價明細表2_dgv.Columns("QTY").Visible = True : 報價明細表2_dgv.Columns("料號").Visible = True
        報價明細表2_dgv.Columns("ITEM").ReadOnly = True : 報價明細表2_dgv.Columns("DESCRIPTION").ReadOnly = True : 報價明細表2_dgv.Columns("UNIT").ReadOnly = True
        報價明細表2_dgv.Columns("QTY").ReadOnly = True : 報價明細表2_dgv.Columns("料號").ReadOnly = True
        Set_報價係數_dgv_勾選項()
        報價明細表2_dgv.Columns("選擇").FillWeight = 30
        For i As Integer = 0 To 報價明細表2_dgv.Rows.Count - 1
            If 報價明細表2_dgv.Rows(i).Cells("料號").Value.ToString = "" Then
                報價明細表2_dgv.Rows(i).Cells("D1").Value = False : 報價明細表2_dgv.Rows(i).Cells("D2").Value = False
                報價明細表2_dgv.Rows(i).Cells("D3").Value = False : 報價明細表2_dgv.Rows(i).Cells("D4").Value = False
                報價明細表2_dgv.Rows(i).Cells("D5").Value = False : 報價明細表2_dgv.Rows(i).Cells("D6").Value = False
                報價明細表2_dgv.Rows(i).Cells("D7").Value = False : 報價明細表2_dgv.Rows(i).Cells("D8").Value = False
            End If
            If 報價明細表2_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then
                If 報價明細表2_dgv.Rows(i).Cells("預設").Value = True Then
                    報價明細表2_dgv.Rows(i).Cells("D1").Value = 報價明細表2_dgv.Rows(i).Cells("S1").Value : 報價明細表2_dgv.Rows(i).Cells("D2").Value = 報價明細表2_dgv.Rows(i).Cells("S2").Value
                    報價明細表2_dgv.Rows(i).Cells("D3").Value = 報價明細表2_dgv.Rows(i).Cells("S3").Value : 報價明細表2_dgv.Rows(i).Cells("D4").Value = 報價明細表2_dgv.Rows(i).Cells("S4").Value
                    報價明細表2_dgv.Rows(i).Cells("D5").Value = 報價明細表2_dgv.Rows(i).Cells("S5").Value : 報價明細表2_dgv.Rows(i).Cells("D6").Value = 報價明細表2_dgv.Rows(i).Cells("S6").Value
                    報價明細表2_dgv.Rows(i).Cells("D7").Value = 報價明細表2_dgv.Rows(i).Cells("S7").Value : 報價明細表2_dgv.Rows(i).Cells("D8").Value = 報價明細表2_dgv.Rows(i).Cells("S8").Value
                End If
                Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
                If 詳細資料_ch.Checked = True Then
                    If 報價明細表2_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D1").Value = True Then
                            ZA1 = 報價明細表2_dgv.Rows(i).Cells("AA1").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D2").Value = True Then
                            ZA2 = 報價明細表2_dgv.Rows(i).Cells("AA2").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then
                                物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D3").Value = True Then
                            ZA3 = 報價明細表2_dgv.Rows(i).Cells("AA3").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then
                                物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D4").Value = True Then
                            ZA4 = 報價明細表2_dgv.Rows(i).Cells("AA4").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then
                                物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D5").Value = True Then
                            ZA5 = 報價明細表2_dgv.Rows(i).Cells("AA5").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then
                                物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D6").Value = True Then
                            ZA6 = 報價明細表2_dgv.Rows(i).Cells("AA6").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then
                                物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D7").Value = True Then
                            ZA7 = 報價明細表2_dgv.Rows(i).Cells("AA7").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then
                                物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D8").Value = True Then
                            ZA8 = 報價明細表2_dgv.Rows(i).Cells("AA8").Value.ToString & "=" & 報價明細表2_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then
                                物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If : End If
                Else
                    If 報價明細表2_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D1").Value = True Then
                            ZA1 = 報價明細表2_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D2").Value = True Then
                            ZA2 = 報價明細表2_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D3").Value = True Then
                            ZA3 = 報價明細表2_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D4").Value = True Then
                            ZA4 = 報價明細表2_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D5").Value = True Then
                            ZA5 = 報價明細表2_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D6").Value = True Then
                            ZA6 = 報價明細表2_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D7").Value = True Then
                            ZA7 = 報價明細表2_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If : End If
                    If 報價明細表2_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : If 報價明細表2_dgv.Rows(i).Cells("D8").Value = True Then
                            ZA8 = 報價明細表2_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If : End If
                End If
                If 報價明細表2_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then
                    報價明細表2_dgv.Rows(i).Cells("DESCRIPTION").Value = 報價明細表2_dgv.Rows(i).Cells("品名").Value.ToString & " " & 物料規格
                End If
            End If : 報價明細表2_dgv.Rows(i).Cells("預設").Value = False
        Next
    End Sub
    Private Sub Set_報價係數_dgv_勾選項()
        Dim Col As New DataGridViewCheckBoxColumn With {
            .FillWeight = 30,
            .DataPropertyName = "選擇"
        }
        Col.HeaderText = "選擇" : Col.Name = "選擇"
        報價明細表2_dgv.Columns.Insert(0, Col)
    End Sub
    Private Sub Set_合約文件圖庫資料庫狀態()
        Dim ds9 As New DataSet : 圖庫清單_dgv.DataSource = Nothing : ds9.Clear()
        圖庫清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖庫清單_dgv.ColumnHeadersHeight = 25
        圖庫清單_dgv.AllowUserToAddRows = False
        表頭(165) = "資料庫" : 表頭(166) = "狀態"
        SQL_工程文件資料庫管理查詢()
        da.Fill(ds9) : 圖庫清單_dgv.DataSource = ds9.Tables(0) : conn.Close()
        圖庫清單_dgv.Columns(0).FillWeight = 100 : 圖庫清單_dgv.Columns(1).FillWeight = 20
    End Sub
    Private Sub Set_BOM表控制()
        Dim ds6 As New DataSet
        BOM表控制_dgv.DataSource = Nothing : ds6.Clear()
        BOM表控制_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        BOM表控制_dgv.ColumnHeadersHeight = 25 : BOM表控制_dgv.AllowUserToAddRows = False : BOM表控制_dgv.RowTemplate.Height = 45
        SQL_BOM表控制1()
        da.Fill(ds6) : BOM表控制_dgv.DataSource = ds6.Tables(0) : conn.Close()
        BOM表控制_dgv.Columns(0).FillWeight = 15 : BOM表控制_dgv.Columns(1).FillWeight = 100 : BOM表控制_dgv.Columns(2).Visible = False
        BOM表控制_dgv.Columns(0).ReadOnly = True : BOM表控制_dgv.Columns(1).ReadOnly = True
        For i As Integer = 0 To BOM表控制_dgv.Rows.Count - 1 : BOM表控制_dgv.Rows(i).Cells("項次").Value = i + 1 : Next
    End Sub
    Private Sub Set_BOM表明細()
        Dim ds6 As New DataSet
        BOM表明細_dgv.DataSource = Nothing : ds6.Clear()
        BOM表明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        BOM表明細_dgv.ColumnHeadersHeight = 25 : BOM表明細_dgv.AllowUserToAddRows = False : BOM表明細_dgv.RowTemplate.Height = 45
        SQL_BOM表明細()
        da.Fill(ds6) : BOM表明細_dgv.DataSource = ds6.Tables(0) : conn.Close()
        BOM表明細_dgv.Columns(0).FillWeight = 30 : BOM表明細_dgv.Columns(0).Visible = False : BOM表明細_dgv.Columns(1).FillWeight = 30
        BOM表明細_dgv.Columns(2).FillWeight = 250 : BOM表明細_dgv.Columns(3).FillWeight = 30 : BOM表明細_dgv.Columns(4).FillWeight = 30
        BOM表明細_dgv.Columns(5).FillWeight = 30 : BOM表明細_dgv.Columns(6).Visible = False
        For i As Integer = 7 To 34 : BOM表明細_dgv.Columns(i).Visible = False : Next
        BOM表明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0"
        BOM表明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        BOM表明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        For i As Integer = 0 To 5 : BOM表明細_dgv.Columns(i).ReadOnly = True : Next
        For i As Integer = 3 To 4 : BOM表明細_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : Next
        For i As Integer = 0 To BOM表明細_dgv.Rows.Count - 1
            BOM表明細_dgv.Rows(i).Cells("項次").Value = i + 1
            If BOM表明細_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then
                Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
                If 詳細資料1_ch.Checked = True Then
                    If BOM表明細_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then
                        ZA1 = BOM表明細_dgv.Rows(i).Cells("AA1").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
                    If BOM表明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                        ZA2 = BOM表明細_dgv.Rows(i).Cells("AA2").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A2").Value
                        If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                        ZA3 = BOM表明細_dgv.Rows(i).Cells("AA3").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A3").Value
                        If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                        ZA4 = BOM表明細_dgv.Rows(i).Cells("AA4").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A4").Value
                        If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                        ZA5 = BOM表明細_dgv.Rows(i).Cells("AA5").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A5").Value
                        If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                        ZA6 = BOM表明細_dgv.Rows(i).Cells("AA6").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A6").Value
                        If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                        ZA7 = BOM表明細_dgv.Rows(i).Cells("AA7").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A7").Value
                        If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                        ZA8 = BOM表明細_dgv.Rows(i).Cells("AA8").Value.ToString & "=" & BOM表明細_dgv.Rows(i).Cells("A8").Value
                        If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
                Else
                    If BOM表明細_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then
                        ZA1 = BOM表明細_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
                    If BOM表明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                        ZA2 = BOM表明細_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                        ZA3 = BOM表明細_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                        ZA4 = BOM表明細_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                        ZA5 = BOM表明細_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                        ZA6 = BOM表明細_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                        ZA7 = BOM表明細_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                    If BOM表明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                        ZA8 = BOM表明細_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
                End If
                If BOM表明細_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then
                    BOM表明細_dgv.Rows(i).Cells("項目").Value = BOM表明細_dgv.Rows(i).Cells("品名").Value.ToString & " " & 物料規格
                End If
            End If
        Next
    End Sub
    Private Sub Set_合約報價係數()
        報價係數_dgv.DataSource = Nothing : ds16.Clear()
        報價係數_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        報價係數_dgv.ColumnHeadersHeight = 25 : 報價係數_dgv.AllowUserToAddRows = False
        報價係數1_dgv.DataSource = Nothing : ds16.Clear()
        報價係數1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        報價係數1_dgv.ColumnHeadersHeight = 25 : 報價係數1_dgv.AllowUserToAddRows = False
        SQL_合約報價係數()
        da.Fill(ds16) : 報價係數_dgv.DataSource = ds16.Tables(0) : 報價係數1_dgv.DataSource = ds16.Tables(0) : conn.Close()
        報價係數_dgv.Columns(0).Visible = False : 報價係數_dgv.Columns(1).Visible = False : 報價係數_dgv.Columns(2).FillWeight = 80
        報價係數_dgv.Columns(3).FillWeight = 40 : 報價係數_dgv.Columns(4).FillWeight = 30

        報價係數_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
        報價係數_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        報價係數_dgv.Columns(2).ReadOnly = True : 報價係數_dgv.Columns(3).ReadOnly = True : 報價係數_dgv.Columns(4).ReadOnly = True

        報價係數1_dgv.Columns(0).Visible = False : 報價係數1_dgv.Columns(1).Visible = False : 報價係數1_dgv.Columns(2).FillWeight = 80
        報價係數1_dgv.Columns(3).FillWeight = 40 : 報價係數1_dgv.Columns(4).FillWeight = 30

        報價係數1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
        報價係數1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        報價係數1_dgv.Columns(2).ReadOnly = True : 報價係數1_dgv.Columns(3).ReadOnly = True : 報價係數1_dgv.Columns(4).ReadOnly = True
    End Sub
    Private Sub Set_合約報價總表()
        If 介面啟動 = True Then
            Dim ds15 As New DataSet
            If 美金_ch.Checked = True Then : 幣別 = " (USD)" : ElseIf 台幣_ch.Checked = True Then : 幣別 = " (TWD)"
            ElseIf 人民幣_ch.Checked = True Then : 幣別 = " (RMB)" : ElseIf 印尼盾_ch.Checked = True Then : 幣別 = " (RP)" : End If

            報價總表_dgv.DataSource = Nothing : ds15.Clear()
            報價總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            報價總表_dgv.ColumnHeadersHeight = 40 : 報價總表_dgv.AllowUserToAddRows = False : 報價總表_dgv.RowTemplate.Height = 45
            報價總表_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True
            SQL_合約報價總表() : 啟動運算 = False
            da.Fill(ds15) : 報價總表_dgv.DataSource = ds15.Tables(0) : conn.Close()

            報價總表_dgv.Columns(0).Visible = False : 報價總表_dgv.Columns(8).Visible = False
            報價總表_dgv.Columns(0).FillWeight = 50 : 報價總表_dgv.Columns(1).FillWeight = 50 : 報價總表_dgv.Columns(2).FillWeight = 210
            報價總表_dgv.Columns(3).FillWeight = 50 : 報價總表_dgv.Columns(4).FillWeight = 50 : 報價總表_dgv.Columns(5).FillWeight = 80
            報價總表_dgv.Columns(6).FillWeight = 80 : 報價總表_dgv.Columns(7).FillWeight = 90 : 報價總表_dgv.Columns(9).FillWeight = 50

            For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : Next
            For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Next
            For i As Integer = 0 To 7 : 報價總表_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Next

            報價總表_dgv.Columns(2).ReadOnly = True : 報價總表_dgv.Columns(6).ReadOnly = True
            報價總表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
            啟動運算 = True : 報價總表_dgv_自動計算()
            If DGV位置1.Value >= 報價總表_dgv.Rows.Count Then : DGV位置1.Value = 報價總表_dgv.Rows.Count - 1 : End If
            If DGV位置1.Value > 0 Then : 報價總表_dgv.CurrentCell = 報價總表_dgv.Rows(DGV位置1.Value).Cells(1) : End If
        End If
    End Sub
    Private Sub Set_合約報價明細表格式()
        報價明細表_dgv.Columns(0).FillWeight = 45 : 報價明細表_dgv.Columns(1).FillWeight = 45 : 報價明細表_dgv.Columns(2).FillWeight = 200
        報價明細表_dgv.Columns(3).FillWeight = 45 : 報價明細表_dgv.Columns(4).FillWeight = 45 : 報價明細表_dgv.Columns(5).FillWeight = 100
        報價明細表_dgv.Columns(6).FillWeight = 100 : 報價明細表_dgv.Columns(7).FillWeight = 70 : 報價明細表_dgv.Columns(8).FillWeight = 50

        報價明細表_dgv.Columns(34).FillWeight = 80 : 報價明細表_dgv.Columns(33).FillWeight = 40
        報價明細表_dgv.Columns(42).FillWeight = 20 : 報價明細表_dgv.Columns(43).FillWeight = 20 : 報價明細表_dgv.Columns(44).FillWeight = 20
        報價明細表_dgv.Columns(45).FillWeight = 20 : 報價明細表_dgv.Columns(46).FillWeight = 20 : 報價明細表_dgv.Columns(47).FillWeight = 20
        報價明細表_dgv.Columns(48).FillWeight = 20 : 報價明細表_dgv.Columns(49).FillWeight = 20 : 報價明細表_dgv.Columns(50).FillWeight = 20
        If 利潤表_ch.Checked = False Then : 報價明細表_dgv.Columns("S").FillWeight = 20 : Else : 報價明細表_dgv.Columns("S").FillWeight = 40 : End If
    End Sub
    Private Sub Set_合約報價明細表()
        If 介面啟動 = True Then
            Dim ds14 As New DataSet
            If 美金_ch.Checked = True Then : 幣別 = " (USD)" : ElseIf 台幣_ch.Checked = True Then : 幣別 = " (TWD)"
            ElseIf 人民幣_ch.Checked = True Then : 幣別 = " (RMB)" : ElseIf 印尼盾_ch.Checked = True Then : 幣別 = " (RP)" : End If

            報價明細表_dgv.DataSource = Nothing : ds14.Clear()
            報價明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            報價明細表_dgv.ColumnHeadersHeight = 40 : 報價明細表_dgv.AllowUserToAddRows = False : 報價明細表_dgv.RowTemplate.Height = 45
            報價明細表_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True
            報價明細表1_dgv.DataSource = Nothing : ds14.Clear()
            報價明細表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            報價明細表1_dgv.ColumnHeadersHeight = 40 : 報價明細表1_dgv.AllowUserToAddRows = False : 報價明細表1_dgv.RowTemplate.Height = 45
            報價明細表1_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True
            PA = 合約編號_tb.Text : SQL_合約報價明細表()
            da.Fill(ds14) : 報價明細表_dgv.DataSource = ds14.Tables(0) : 報價明細表1_dgv.DataSource = ds14.Tables(0) : conn.Close()

            報價明細表1_dgv.Columns("流水號").FillWeight = 50 : 報價明細表1_dgv.Columns(6).FillWeight = 60 : 報價明細表1_dgv.Columns(2).FillWeight = 200
            報價明細表1_dgv.Columns(1).FillWeight = 40
            Set_報價係數_dgv_下拉式清單1()

            For i As Integer = 4 To 6 : 報價明細表_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : Next
            For i As Integer = 9 To 17 : 報價明細表_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : Next
            報價明細表1_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
            報價明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"

            For i As Integer = 3 To 6 : 報價明細表_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : Next
            For i As Integer = 8 To 17 : 報價明細表_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : Next
            報價明細表1_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

            For i As Integer = 10 To 12 : 報價明細表_dgv.Columns(i).DefaultCellStyle.BackColor = Color.MistyRose : Next
            For i As Integer = 14 To 16 : 報價明細表_dgv.Columns(i).DefaultCellStyle.BackColor = Color.MistyRose : Next

            If 利潤表_ch.Checked = True Then : Set_報價明細表_dgv_利潤表開啟() : Else : Set_報價明細表_dgv_利潤表關閉() : End If
            For i As Integer = 0 To 58 : 報價明細表1_dgv.Columns(i).Visible = False : Next
            For I As Integer = 18 To 58 : 報價明細表_dgv.Columns(I).Visible = False : Next
            報價明細表_dgv.Columns(0).Visible = False : 報價明細表1_dgv.Columns(1).Visible = True : 報價明細表1_dgv.Columns(2).Visible = True : 報價明細表1_dgv.Columns(6).Visible = True
            報價明細表1_dgv.Columns("流水號").Visible = True
            報價明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 報價明細表1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
            '報價明細表_dgv.Columns(1).ReadOnly = True
            報價明細表_dgv.Columns(2).ReadOnly = True : 報價明細表_dgv.Columns(4).ReadOnly = True : 報價明細表_dgv.Columns(5).ReadOnly = True
            報價明細表_dgv.Columns(6).ReadOnly = True : 報價明細表_dgv.Columns(10).ReadOnly = True : 報價明細表_dgv.Columns(11).ReadOnly = True : 報價明細表_dgv.Columns(12).ReadOnly = True
            報價明細表_dgv.Columns(14).ReadOnly = True : 報價明細表_dgv.Columns(15).ReadOnly = True : 報價明細表_dgv.Columns(16).ReadOnly = True : 報價明細表_dgv.Columns(17).ReadOnly = True

            報價明細表1_dgv.Columns(1).ReadOnly = True : 報價明細表1_dgv.Columns(2).ReadOnly = True : 報價明細表1_dgv.Columns(4).ReadOnly = True : 報價明細表1_dgv.Columns(5).ReadOnly = True
            報價明細表1_dgv.Columns(6).ReadOnly = True : 報價明細表1_dgv.Columns(10).ReadOnly = True : 報價明細表1_dgv.Columns(11).ReadOnly = True : 報價明細表1_dgv.Columns(12).ReadOnly = True
            報價明細表1_dgv.Columns(14).ReadOnly = True : 報價明細表1_dgv.Columns(15).ReadOnly = True : 報價明細表1_dgv.Columns(16).ReadOnly = True : 報價明細表1_dgv.Columns(17).ReadOnly = True

            報價明細表_dgv_物料顯示() : 啟動運算 = True : 報價明細表_dgv_自動計算()
            If DGV位置2.Value >= 報價明細表_dgv.Rows.Count Then : DGV位置2.Value = 報價明細表_dgv.Rows.Count - 1 : End If
            If DGV位置2.Value > 0 Then : 報價明細表_dgv.CurrentCell = 報價明細表_dgv.Rows(DGV位置2.Value).Cells(1) : End If
            For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1 : 報價明細表_dgv.Rows(i).Cells("S").Value = False : Next
            Set_合約報價明細表格式()
        End If
    End Sub
    Private Sub Set_報價係數_dgv_下拉式清單1()
        Dim Col As New DataGridViewComboBoxColumn With {
            .FillWeight = 60,
            .DataPropertyName = "材料係數"
        }
        SQL_合約報價係數_下拉()
        Col.Items.Clear()
        While (dr.Read()) : Col.Items.Add(dr("項目")) : End While : conn.Close()
        Col.HeaderText = "係數" : Col.Name = "係數"
        報價明細表_dgv.Columns.Insert(60, Col)
    End Sub
    Private Sub Set_報價明細表_dgv_利潤表關閉()
        If 報價明細表_dgv.Rows.Count > 0 Then
            利潤表_ch.Checked = False : For i As Integer = 8 To 17 : 報價明細表_dgv.Columns(i).Visible = False : Next
            報價明細表_dgv.Columns(33).Visible = False : 報價明細表_dgv.Columns(7).Visible = True : 報價明細表_dgv.Columns(4).Visible = True
        End If
    End Sub
    Private Sub Set_報價明細表_dgv_利潤表開啟()
        If 報價明細表_dgv.Rows.Count > 0 Then
            For I As Integer = 43 To 50 : 報價明細表_dgv.Columns(I).Visible = False : Next
            報價明細表_dgv.Columns(8).Visible = True : 報價明細表_dgv.Columns(17).Visible = True : 報價明細表_dgv.Columns(33).Visible = True
            報價明細表_dgv.Columns(7).Visible = False : 報價明細表_dgv.Columns(4).Visible = False : 利潤表_ch.Checked = True
            If 工資_ch.Checked = True Then : For i As Integer = 9 To 12 : 報價明細表_dgv.Columns(i).Visible = True : Next
            Else : For i As Integer = 9 To 12 : 報價明細表_dgv.Columns(i).Visible = False : Next : End If
            If 材料_ch.Checked = True Then : For i As Integer = 13 To 16 : 報價明細表_dgv.Columns(i).Visible = True : Next
            Else : For i As Integer = 13 To 16 : 報價明細表_dgv.Columns(i).Visible = False : Next : End If
        End If
    End Sub
    Private Sub Set_合約範例()
        Dim ds12 As New DataSet
        範例文本_dgv.DataSource = Nothing : ds12.Clear()
        範例文本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        範例文本_dgv.ColumnHeadersHeight = 25 : 範例文本_dgv.AllowUserToAddRows = False
        SQL_合約清單_範本()
        da.Fill(ds12) : 範例文本_dgv.DataSource = ds12.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_合約清單()
        Dim ds6 As New DataSet
        合約_dgv.DataSource = Nothing : ds6.Clear()
        合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False
        PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text
        SQL_合約清單_報價用()
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 130 : 合約_dgv.Columns("工程名稱_中").FillWeight = 280 : 合約_dgv.Columns("簽回").FillWeight = 40 : 合約_dgv.Columns("審核通過").FillWeight = 40
        合約_dgv.Columns("停止").FillWeight = 40
        For i As Integer = 1 To 38 : 合約_dgv.Columns(i).Visible = False : Next
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1
            If IsDBNull(合約_dgv("停止", i).Value) = True Then : 合約_dgv("停止", i).Value = False : End If
            If IsDBNull(合約_dgv("簽回", i).Value) = True Then : 合約_dgv("簽回", i).Value = False : End If
        Next
        If 放大 = True Then
            合約_dgv.Columns("工程名稱_中").Visible = True : 合約_dgv.Columns("審核通過").Visible = True : 合約_dgv.Columns("停止").Visible = True
        Else
            合約_dgv.Columns("工程名稱_中").Visible = False : 合約_dgv.Columns("審核通過").Visible = False : 合約_dgv.Columns("停止").Visible = False
        End If
    End Sub
    Private Sub Set_合約試算控制表_查詢()
        Dim ds5 As New DataSet
        試算控制表_dgv.DataSource = Nothing : ds5.Clear()
        試算控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        試算控制表_dgv.ColumnHeadersHeight = 25 : 試算控制表_dgv.AllowUserToAddRows = False
        SQL_合約試算控制表_查詢()
        da.Fill(ds5) : 試算控制表_dgv.DataSource = ds5.Tables(0) : conn.Close()

        For i As Integer = 0 To 40 : 合約試算表頭(i) = i & "." : Next
        If 試算控制表_dgv.Rows.Count > 0 Then : For i As Integer = 0 To 試算控制表_dgv.Rows.Count - 1 : 合約試算表頭(i + 1) = 試算控制表_dgv("樓層/迴路", i).Value.ToString : Next : End If
        Set_試算明細表()
    End Sub
    Private Sub Set_試算明細表()
        Dim DS7 As New DataSet
        試算表_dgv.DataSource = Nothing : DS7.Clear()
        試算表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        試算表_dgv.ColumnHeadersHeight = 120 : 試算表_dgv.AllowUserToAddRows = False : 試算表_dgv.RowTemplate.Height = 45
        SQL_合約試算明細表_查詢()
        da.Fill(DS7) : 試算表_dgv.DataSource = DS7.Tables(0) : conn.Close()
        試算表_dgv.Columns(0).Frozen = True : 試算表_dgv.Columns(1).Frozen = True : 試算表_dgv.Columns(2).Frozen = True
        試算表_dgv.Columns(0).Visible = False
        For I As Integer = 45 To 54 : 試算表_dgv.Columns(I).Visible = False : Next

        試算表_dgv.Columns(1).Width = 100 : 試算表_dgv.Columns(2).Width = 150 : 試算表_dgv.Columns(43).Width = 30 : 試算表_dgv.Columns(44).Width = 50
        試算表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 試算表_dgv.Columns(44).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        試算表_dgv.Columns(44).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        試算表_dgv.Columns(44).DefaultCellStyle.Format = "#,##0"

        If 直接輸入_ch.Checked = False And 使用計算機_ch.Checked = True Then : 試算表_dgv.EditMode = DataGridViewEditMode.EditOnF2
        Else : 試算表_dgv.EditMode = DataGridViewEditMode.EditOnEnter : End If
        試算表_dgv.Columns(1).ReadOnly = True : 試算表_dgv.Columns(2).ReadOnly = True : 試算表_dgv.Columns(44).ReadOnly = True

        Dim 開始 As Integer = 3 : Dim 結束 As Integer = 42
        For I As Integer = 開始 To 結束 : 試算表_dgv.Columns(I).Width = 80
            試算表_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            試算表_dgv.Columns(I).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            試算表_dgv.Columns(I).DefaultCellStyle.Format = "#,##0.0"
        Next
        Dim 表頭數 As Integer = 試算控制表_dgv.Rows.Count
        If 表頭數 = 0 Then
            For I As Integer = 開始 To 結束 : 試算表_dgv.Columns(I).Visible = False : Next
        ElseIf 表頭數 > 0 Then
            For I As Integer = 開始 To 表頭數 + 2 : 試算表_dgv.Columns(I).Visible = True : Next
            For I As Integer = 表頭數 + 3 To 結束 : 試算表_dgv.Columns(I).Visible = False : Next
        End If

        For i As Integer = 0 To 試算表_dgv.Rows.Count - 1
            '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
            If i = 0 Then
                PA3 = 試算表_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                If dr.Read() Then
                    AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                End If : conn.Close()
            Else
                If 試算表_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 試算表_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
                    PA3 = 試算表_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
                    If dr.Read() Then
                        AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                    End If : conn.Close()
                End If
            End If
            Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
            If 詳細資料3_ch.Checked = True Then
                If 試算表_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 試算表_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
                If 試算表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 試算表_dgv.Rows(i).Cells("A2").Value
                    If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 試算表_dgv.Rows(i).Cells("A3").Value
                    If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 試算表_dgv.Rows(i).Cells("A4").Value
                    If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 試算表_dgv.Rows(i).Cells("A5").Value
                    If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 試算表_dgv.Rows(i).Cells("A6").Value
                    If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 試算表_dgv.Rows(i).Cells("A7").Value
                    If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 試算表_dgv.Rows(i).Cells("A8").Value
                    If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            Else
                If 試算表_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : ZA1 = 試算表_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
                If 試算表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = 試算表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = 試算表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = 試算表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                    ZA5 = 試算表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                    ZA6 = 試算表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                    ZA7 = 試算表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
                If 試算表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                    ZA8 = 試算表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            End If
            試算表_dgv.Rows(i).Cells("樓層/迴路").Value = 物料規格
        Next
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds13.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds13) : 語言_dgv.DataSource = ds13.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "物料清單_dgv_單位" Then : 表頭(16) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub Set_DGV1載入前設定()
        物料清單_dgv.DataSource = Nothing : ds4.Clear()
        物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料清單_dgv.ColumnHeadersHeight = 25 : 物料清單_dgv.AllowUserToAddRows = False
        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 物料清單_dgv.RowTemplate.Height = 65
        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 45
        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 物料清單_dgv.RowTemplate.Height = 25
        End If : ConnOpen_ERP()
    End Sub
    Private Sub Set_清單1()
        PA1 = 群組碼_tb.Text : Set_DGV1載入前設定() : SQL_合約試算分表_物料清單一() : Set_DG1載入後設定()
    End Sub
    Private Sub Set_DG1載入後設定()
        CmdSet_For_DGV() : da.Fill(ds4) : 物料清單_dgv.DataSource = ds4.Tables(0) : conn.Close()
        物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 175 : 物料清單_dgv.Columns(3).Visible = False
        物料清單_dgv.Columns(4).Visible = False : 物料清單_dgv.Columns(5).FillWeight = 45
        物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv(0, i).Value = i + 1 : Next
        If 低網速模式 = False Then
            物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(6).Visible = True
            Dim mycol As DataGridViewImageColumn = 物料清單_dgv.Columns("圖檔") : mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 物料清單_dgv.Columns.Count = 7 Then : 物料清單_dgv.Columns(6).Visible = False : End If
        End If
    End Sub
    Private Sub Set_合約明細1()
        第1期_dgv.DataSource = Nothing : ds7.Clear()
        第1期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第1期_dgv.ColumnHeadersHeight = 25 : 第1期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds7) : 第1期_dgv.DataSource = ds7.Tables(0) : conn.Close()
        第1期_dgv.Columns(0).Visible = False : 第1期_dgv.Columns(1).Visible = False : 第1期_dgv.Columns(2).FillWeight = 20 : 第1期_dgv.Columns(3).FillWeight = 140
        第1期_dgv.Columns(4).FillWeight = 20 : 第1期_dgv.Columns(5).FillWeight = 50
        第1期_dgv.Columns(2).ReadOnly = True : 第1期_dgv.Columns(5).ReadOnly = True
        第1期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第1期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第1期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第1期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第1期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第1期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_合約明細2()
        第2期_dgv.DataSource = Nothing : ds8.Clear()
        第2期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第2期_dgv.ColumnHeadersHeight = 25 : 第2期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds8) : 第2期_dgv.DataSource = ds8.Tables(0) : conn.Close()
        第2期_dgv.Columns(0).Visible = False : 第2期_dgv.Columns(1).Visible = False : 第2期_dgv.Columns(2).FillWeight = 20 : 第2期_dgv.Columns(3).FillWeight = 140
        第2期_dgv.Columns(4).FillWeight = 20 : 第2期_dgv.Columns(5).FillWeight = 50
        第2期_dgv.Columns(2).ReadOnly = True : 第2期_dgv.Columns(5).ReadOnly = True
        第2期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第2期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第2期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第2期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第2期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第2期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_合約明細3()
        第3期_dgv.DataSource = Nothing : ds9.Clear()
        第3期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第3期_dgv.ColumnHeadersHeight = 25
        第3期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds9) : 第3期_dgv.DataSource = ds9.Tables(0) : conn.Close()
        第3期_dgv.Columns(0).Visible = False : 第3期_dgv.Columns(1).Visible = False : 第3期_dgv.Columns(2).FillWeight = 20 : 第3期_dgv.Columns(3).FillWeight = 140
        第3期_dgv.Columns(4).FillWeight = 20 : 第3期_dgv.Columns(5).FillWeight = 50
        第3期_dgv.Columns(2).ReadOnly = True : 第3期_dgv.Columns(5).ReadOnly = True
        第3期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第3期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第3期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第3期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第3期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第3期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_合約明細4()
        第4期_dgv.DataSource = Nothing : ds10.Clear()
        第4期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第4期_dgv.ColumnHeadersHeight = 25 : 第4期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds10) : 第4期_dgv.DataSource = ds10.Tables(0) : conn.Close()
        第4期_dgv.Columns(0).Visible = False : 第4期_dgv.Columns(1).Visible = False : 第4期_dgv.Columns(2).FillWeight = 20 : 第4期_dgv.Columns(3).FillWeight = 140
        第4期_dgv.Columns(4).FillWeight = 20 : 第4期_dgv.Columns(5).FillWeight = 50
        第4期_dgv.Columns(2).ReadOnly = True : 第4期_dgv.Columns(5).ReadOnly = True
        第4期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第4期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第4期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第4期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第4期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第4期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_合約明細5()
        第5期_dgv.DataSource = Nothing : ds11.Clear()
        第5期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第5期_dgv.ColumnHeadersHeight = 25 : 第5期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds11) : 第5期_dgv.DataSource = ds11.Tables(0) : conn.Close()
        第5期_dgv.Columns(0).Visible = False : 第5期_dgv.Columns(1).Visible = False : 第5期_dgv.Columns(2).FillWeight = 20 : 第5期_dgv.Columns(3).FillWeight = 140
        第5期_dgv.Columns(4).FillWeight = 20 : 第5期_dgv.Columns(5).FillWeight = 50
        第5期_dgv.Columns(2).ReadOnly = True : 第5期_dgv.Columns(5).ReadOnly = True
        第5期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第5期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第5期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第5期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第5期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub 係數表下拉清單1()
        SQL_合約係數表下拉1() : 係數項目_cb.Items.Clear() : While (dr.Read()) : 係數項目_cb.Items.Add(dr("項目")) : End While : conn.Close()
    End Sub
    Private Sub 係數表下拉清單2()
        SQL_合約係數表下拉2() : 係數單位_cb.Items.Clear() : While (dr.Read()) : 係數單位_cb.Items.Add(dr("單位")) : End While : conn.Close()
    End Sub
    Private Sub 合約試算分下拉清單()
        PA = 合約編號_tb.Text : SQL_合約試算分表查詢() : 試算表_cb.Items.Clear() : While (dr.Read()) : 試算表_cb.Items.Add(dr("試算表")) : End While : conn.Close()
    End Sub
    Private Sub 合約試算控制下拉清單()
        PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : SQL_合約試算控制表查詢() : 樓層_迴路_cb.Items.Clear() : While (dr.Read()) : 樓層_迴路_cb.Items.Add(dr("樓層/迴路")) : End While : conn.Close()
    End Sub
    Private Sub 群組碼_cb_語轉_下拉表單資料載入()
        SQL_群組碼_語轉_下拉清單() : 新群組1_cb.Items.Clear() : While (dr.Read()) : 新群組1_cb.Items.Add(dr("群組")) : End While : conn.Close()
    End Sub
    Private Sub 群組編碼_cb_下拉表單資料載入()
        SQL_群組碼_下拉清單() : 群組編碼_cb.Items.Clear() : While (dr.Read()) : 群組編碼_cb.Items.Add(dr("群組碼")) : End While : conn.Close()
    End Sub
    Private Sub 合約種類下拉清單讀取()
        SQL_合約種類讀取() : 合約種類_cb.Items.Clear() : While (dr.Read()) : 合約種類_cb.Items.Add(dr("中")) : End While : conn.Close()
    End Sub
    Private Sub 客戶名稱下拉清單讀取()
        SQL_客戶名稱讀取() : 客戶名稱_tb.Items.Clear() : While (dr.Read()) : 客戶名稱_tb.Items.Add(dr("客戶名稱")) : End While : conn.Close()
    End Sub
    Private Sub 我司負責人下拉清單讀取()
        SQL負責人B讀取() : 負責人_B_cb.Items.Clear() : While (dr.Read()) : 負責人_B_cb.Items.Add(dr("負責人B")) : End While : conn.Close()
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : 合約編號2_cb.Items.Clear() : 合約編號2_cb.Items.Add("")
        甲方_cb.Items.Clear() : 甲方_cb.Items.Add("")
        While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : 合約編號2_cb.Items.Add(dr("約號甲方")) : 甲方_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 預設資料()
        合約種類_cb.Text = "" : 合約種類_tb.Text = "" : 客戶名稱_tb.Text = "" : 負責人_A_cb.Text = ""
        工程地點_tb.Text = "" : 客戶地址_tb.Text = "" : 工程名稱_中_tb.Text = "" : 工程名稱_英_tb.Text = "" : 負責人_B_cb.Text = "" : CH2.Checked = True : 立約日期_dtp.Value = Today()
        我司地址_tb.Text = "" : 廠區_中文_tb.Text = ""
        NUD3.Value = 0 : 工程款1_nud.Value = 30 : 工程款2_nud.Value = 40 : 工程款3_nud.Value = 20 : 工程款4_nud.Value = 5 : 工程款5_nud.Value = 5 : 工期_nud.Value = 180
        最高扣款_英_bt.Text = "5 (five)%." : 逾期_bt.Text = "0.0005% (萬分之五)" : 頁數_bt.Text = "16"
        最高扣款_bt.Text = "5% (百分之五)" : 逾期_英_bt.Text = "0.0005% (null point null null null five percent)"
        Set_合約清單() : 合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取()
        合約種類_cb.SelectedIndex = 0
        第1期_dgv.DataSource = Nothing : ds7.Clear() : 第2期_dgv.DataSource = Nothing : ds8.Clear() : 第3期_dgv.DataSource = Nothing : ds9.Clear()
        第4期_dgv.DataSource = Nothing : ds10.Clear() : 第5期_dgv.DataSource = Nothing : ds11.Clear()
    End Sub
    Private Sub 預設資料1()
        工程地點_tb.Text = "" : 工程名稱_中_tb.Text = "" : 工程名稱_英_tb.Text = "" : 負責人_B_cb.Text = "" : CH2.Checked = True : 立約日期_dtp.Value = Today()
        If 選擇公司_cb.Text = "G.C.M. Smart Enterprise LTD." Then : 我司地址_tb.Text = "屏東縣萬丹鄉麟洛鄉中山路382-103號" : Else
            我司地址_tb.Text = "J.Kaliandra 1 no 1E blok F6 Lantai 2 Delta Silicon II Lippo Cikarang ,Desa Cicau ,Kec. Cikarang Pusat, Kab Bekasi"
        End If
        廠區_中文_tb.Text = ""
        NUD3.Value = 0 : 工程款1_nud.Value = 30 : 工程款2_nud.Value = 40 : 工程款3_nud.Value = 20 : 工程款4_nud.Value = 5 : 工程款5_nud.Value = 5 : 工期_nud.Value = 180
        最末頁_cb.Text = "16" : 最高扣款_英_bt.Text = "5 (five)%." : 逾期_bt.Text = "0.0005% (萬分之五)" : 頁數_bt.Text = "16"
        最高扣款_bt.Text = "5% (百分之五)" : 逾期_英_bt.Text = "0.0005% (null point null null null five percent)"
        Set_合約清單() : 合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取()
        合約種類_cb.SelectedIndex = 0
        第1期_dgv.DataSource = Nothing : ds7.Clear() : 第2期_dgv.DataSource = Nothing : ds8.Clear() : 第3期_dgv.DataSource = Nothing : ds9.Clear()
        第4期_dgv.DataSource = Nothing : ds10.Clear() : 第5期_dgv.DataSource = Nothing : ds11.Clear()
    End Sub
    Private Sub 匯率()
        PA48 = Strings.Left(Strings.Format(立約日期_dtp.Value, "yyyyMMdd"), 4) : PA49 = Strings.Mid(Strings.Format(立約日期_dtp.Value, "yyyyMMdd"), 5, 2)
        SQL_匯率查詢()
        If dr.Read() Then
            人民幣匯率 = dr("中心匯率").ToString : 美金匯率 = dr("美金匯率").ToString : 印尼匯率 = dr("印尼匯率").ToString : conn.Close() : dr.Close()
            If 台幣_ch.Checked = True Then : 匯率1 = 1 / 印尼匯率
            ElseIf 人民幣_ch.Checked = True Then : 匯率1 = 人民幣匯率 / 印尼匯率
            ElseIf 美金_ch.Checked = True Then : 匯率1 = 美金匯率 / 印尼匯率
            ElseIf 印尼盾_ch.Checked = True Then : 匯率1 = 1 / 印尼匯率
            End If
        Else
            conn.Close() : dr.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("請通知 [財務主管]新增匯率資料!!")
            Else : MsgBox("Please notify [Treasurer] to add exchange rate information!!") : End If
            If 台幣_ch.Checked = True Then : 匯率1 = 1 / 0.002
            ElseIf 人民幣_ch.Checked = True Then : 匯率1 = 4.5 / 0.002
            ElseIf 美金_ch.Checked = True Then : 匯率1 = 31 / 0.002
            ElseIf 印尼盾_ch.Checked = True Then : 匯率1 = 1
            End If
        End If
    End Sub
    Private Sub 合約報價單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        介面 = "H401" : 語言轉換讀取()
        Me.KeyPreview = True : 介面啟動 = True
        合約編號2_tb.Enabled = False : 合約編號3_tb.Enabled = False : CH1.Checked = False : CH2.Checked = True : NUD1.Enabled = False : NUD3.Enabled = True : 合約_lb.Text = "合約"
        小間距_ch.Checked = True : 視窗1_pl.Visible = False : 視窗2_pl.Visible = False : 視窗3_pl.Visible = False : 視窗4_pl.Visible = False : 直接輸入_ch.Checked = True
        物料_p.Visible = False : BOM_p.Visible = True : 合約_p.Visible = False
        使用計算機_ch.Checked = False : SQL2 = ""

        If CInt(登入人級別) <= 5 Then : 合約停止_ch.Enabled = True : 刪除合約_bt.Enabled = True : Else : 合約停止_ch.Enabled = False : 刪除合約_bt.Enabled = False : End If
        縮放1_bt.PerformClick() : 物料清單_dgv.BringToFront() : Panel1.SendToBack() : 縮放_bt.PerformClick() : 不再動作1 = True

        A1 = 空間1.Location.X : A2 = 錨點1.Location.X : B2 = 空間2.Location.Y : A3 = 空間2.Size.Width : B3 = 空間2.Size.Height
        AA1 = 合約_dgv.Location.X : AA2 = 錨點2.Location.X : BB2 = 空間3.Location.Y : AA3 = 空間3.Size.Width : BB3 = 空間3.Size.Height
        OX1 = 報價係數_dgv.Size.Width : OY1 = 報價係數_dgv.Size.Height : OY2 = 報價明細表_dgv.Size.Height

        中文大寫3_ch.Checked = False : 中文小寫3_ch.Checked = True
        ITEM4_cb.Items.Clear() : ITEM4_cb.Items.Add("") : ITEM4_cb.Items.Add("一") : ITEM4_cb.Items.Add("二") : ITEM4_cb.Items.Add("三") : ITEM4_cb.Items.Add("四")
        ITEM4_cb.Items.Add("五") : ITEM4_cb.Items.Add("六") : ITEM4_cb.Items.Add("七") : ITEM4_cb.Items.Add("八") : ITEM4_cb.Items.Add("九") : ITEM4_cb.Items.Add("十")
        ITEM4_cb.Items.Add("十一") : ITEM4_cb.Items.Add("十二") : ITEM4_cb.Items.Add("十三") : ITEM4_cb.Items.Add("十四") : ITEM4_cb.Items.Add("十五") : ITEM4_cb.Items.Add("十六")
        ITEM4_cb.Items.Add("十七") : ITEM4_cb.Items.Add("十八") : ITEM4_cb.Items.Add("十九") : ITEM4_cb.Items.Add("二十")

        預估工資總成本_tb.Text = "0" : 預估材料總成本_tb.Text = "0" : 預估工資總報價_tb.Text = "0" : 預估材料總報價_tb.Text = "0" : 預估利潤_tb.Text = "0"
        總成本_tb.Text = "0" : 總報價_tb.Text = "0" : 利潤比1_tb.Text = "0 %" : 利潤比2_tb.Text = "0 %" : 利潤比3_tb.Text = "0 %" : 利潤比4_tb.Text = "0 %"
        未折價前_tb.Text = "0" : 報價小計_tb.Text = "0" : 折讓比例_nud.Value = "0" : 歸零位數_nud.Value = "0" : 稅前歸零_ch.Checked = False : 稅後歸零_ch.Checked = False
        歸零數_tb.Visible = False
        If 美金_ch.Checked = True Then : 幣別 = " (USD)" : ElseIf 台幣_ch.Checked = True Then : 幣別 = " (TWD)"
        ElseIf 人民幣_ch.Checked = True Then : 幣別 = " (RMD)" : ElseIf 印尼盾_ch.Checked = True Then : 幣別 = " (RP)" : End If
        合約報價單_Siz()
    End Sub
    Private Sub 合約報價單_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        合約報價單_Siz()
        A1 = 空間1.Location.X : A2 = 錨點1.Location.X : B2 = 空間2.Location.Y
        AA1 = 合約_dgv.Location.X : AA2 = 錨點2.Location.X : BB2 = 空間3.Location.Y
        If 空間1.Visible = False Then : A3 = 空間2.Size.Width : B3 = 空間2.Size.Height : A3 -= (A2 - A1) : End If
        If 合約_dgv.Visible = False Then : AA3 = 空間3.Size.Width : BB3 = 空間3.Size.Height : AA3 -= (AA2 - AA1) : End If
    End Sub
    Private Sub 合約報價單_Siz()
        MyModule1.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        合約1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        報價係數_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        報價總表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        報價明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        BOM表控制_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        BOM表明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        報價明細表1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        報價明細表2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 合約報價單_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_合約清單1() : Set_合約清單() : 群組碼_cb_語轉_下拉表單資料載入() : 群組編碼_cb_下拉表單資料載入() : 係數表下拉清單1() : 係數表下拉清單2() : 甲方條件下拉清單讀取() : Set_BOM表控制()
        新群組1_cb.SelectedIndex = 0 : PA = "範本" : Set_合約範例() : 預設資料() : Set_合約文件圖庫資料庫狀態()
    End Sub
    Private Sub 合約報價單_Closing(sender As Object, e As EventArgs) Handles MyBase.Closed
        GCM_ERP_SYS.WindowState = 0
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub Form_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.Control And e.KeyCode = Keys.S Then
            If TabControl1.SelectedIndex = 0 Then : 報價總表存檔_bt.PerformClick()
            ElseIf TabControl1.SelectedIndex <> 0 Then : 報價明細表存檔_bt.PerformClick() : End If
        End If
        If e.KeyCode = Keys.F1 Then
            If TabControl1.SelectedIndex = 0 Then : If 鍵盤鎖定1_ch.Checked = True Then : 鍵盤鎖定1_ch.Checked = False : Else : 鍵盤鎖定1_ch.Checked = True : End If
            ElseIf TabControl1.SelectedIndex <> 0 Then : If 鍵盤鎖定2_ch.Checked = True Then : 鍵盤鎖定2_ch.Checked = False : Else : 鍵盤鎖定2_ch.Checked = True : End If : End If
        End If
        If TabControl1.SelectedIndex = 0 Then
            If 鍵盤鎖定1_ch.Checked = True Then
                Select Case e.KeyCode
                    Case Keys.NumPad1 : Me.ActiveControl = A1_bt : A1_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad2 : Me.ActiveControl = A2_bt : A2_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad3 : Me.ActiveControl = A3_bt : A3_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad4 : Me.ActiveControl = A4_bt : A4_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad5 : Me.ActiveControl = A5_bt : A5_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad6 : Me.ActiveControl = A6_bt : A6_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad7 : Me.ActiveControl = A7_bt : A7_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad8 : Me.ActiveControl = A8_bt : A8_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad9 : Me.ActiveControl = A9_bt : A9_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.NumPad0 : Me.ActiveControl = A0_bt : A0_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Decimal : Me.ActiveControl = 小數點_bt : 小數點_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D1 : Me.ActiveControl = A1_bt : A1_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D2 : Me.ActiveControl = A2_bt : A2_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D3 : Me.ActiveControl = A3_bt : A3_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D4 : Me.ActiveControl = A4_bt : A4_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D5 : Me.ActiveControl = A5_bt : A5_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D6 : Me.ActiveControl = A6_bt : A6_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D7 : Me.ActiveControl = A7_bt : A7_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D8 : Me.ActiveControl = A8_bt : A8_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D9 : Me.ActiveControl = A9_bt : A9_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.D0 : Me.ActiveControl = A0_bt : A0_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.OemPeriod : Me.ActiveControl = 小數點_bt : 小數點_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Delete : Me.ActiveControl = 倒退_bt : 倒退_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Multiply : Me.ActiveControl = 乘_bt : 乘_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Subtract : Me.ActiveControl = 減_bt : 減_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.OemMinus : Me.ActiveControl = 減_bt : 減_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Add : Me.ActiveControl = 加_bt : 加_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Oemplus : Me.ActiveControl = 加_bt : 加_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Oem2 : Me.ActiveControl = 除_bt : 除_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Divide : Me.ActiveControl = 除_bt : 除_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Back : Me.ActiveControl = 倒退_bt : 倒退_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Return : Me.ActiveControl = 倒退_bt : 倒退_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                    Case Keys.Escape : Me.ActiveControl = 清除_bt : 清除_bt.PerformClick() : Me.ActiveControl = 等於_bt : 等於_bt.Focus()
                End Select
            End If
        ElseIf TabControl1.SelectedIndex <> 0 Then
            If 鍵盤鎖定2_ch.Checked = True Then
                Select Case e.KeyCode
                    Case Keys.NumPad1 : Me.ActiveControl = A1_bt : A1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad2 : Me.ActiveControl = A2_bt : A2_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad3 : Me.ActiveControl = A3_bt : A3_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad4 : Me.ActiveControl = A4_bt : A4_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad5 : Me.ActiveControl = A5_bt : A5_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad6 : Me.ActiveControl = A6_bt : A6_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad7 : Me.ActiveControl = A7_bt : A7_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad8 : Me.ActiveControl = A8_bt : A8_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad9 : Me.ActiveControl = A9_bt : A9_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.NumPad0 : Me.ActiveControl = A0_bt : A0_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Decimal : Me.ActiveControl = 小數點1_bt : 小數點1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D1 : Me.ActiveControl = A1_bt : A1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D2 : Me.ActiveControl = A2_bt : A2_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D3 : Me.ActiveControl = A3_bt : A3_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D4 : Me.ActiveControl = A4_bt : A4_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D5 : Me.ActiveControl = A5_bt : A5_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D6 : Me.ActiveControl = A6_bt : A6_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D7 : Me.ActiveControl = A7_bt : A7_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D8 : Me.ActiveControl = A8_bt : A8_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D9 : Me.ActiveControl = A9_bt : A9_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.D0 : Me.ActiveControl = A0_bt : A0_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.OemPeriod : Me.ActiveControl = 小數點1_bt : 小數點1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Delete : Me.ActiveControl = 倒退1_bt : 倒退1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Multiply : Me.ActiveControl = 乘1_bt : 乘1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Subtract : Me.ActiveControl = 減1_bt : 減1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.OemMinus : Me.ActiveControl = 減1_bt : 減1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Add : Me.ActiveControl = 加1_bt : 加1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Oemplus : Me.ActiveControl = 加1_bt : 加1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Oem2 : Me.ActiveControl = 除1_bt : 除1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Divide : Me.ActiveControl = 除1_bt : 除1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Back : Me.ActiveControl = 倒退1_bt : 倒退1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Return : Me.ActiveControl = 倒退1_bt : 倒退1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                    Case Keys.Escape : Me.ActiveControl = 清除1_bt : 清除1_bt.PerformClick() : Me.ActiveControl = 等於1_bt : 等於1_bt.Focus()
                End Select
            End If
        End If
    End Sub
    Private Sub 報價明細表2_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 報價明細表2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 報價明細表2_dgv.Rows(e.RowIndex).Cells("選擇").Value = True Then
                報價明細表2_dgv.Rows(e.RowIndex).Cells("選擇").Value = False
            Else
                報價明細表2_dgv.Rows(e.RowIndex).Cells("選擇").Value = True
            End If
            物料圖1_pb.Image = Nothing
            If 報價明細表2_dgv.Rows(e.RowIndex).Cells("料號原則").Value.ToString = "" Then : Else
                PA2 = 報價明細表2_dgv.Rows(e.RowIndex).Cells("料號原則").Value.ToString : SQL_物料圖庫_圖檔讀取一()
                While dr.Read() = True
                    Dim unused As Byte() = New Byte(-1) {}
                    Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                    Dim oStream As New MemoryStream(bytes)
                    物料圖1_pb.Image = Bitmap.FromStream(oStream)
                End While : conn.Close() : 物料圖1_pb.SizeMode = 4
            End If
            '------------數字為0隱藏-----------------------------------------------------------------------------------------------
            For i As Integer = 0 To 報價明細表2_dgv.Rows.Count - 1
                If IsDBNull(報價明細表2_dgv.Rows(i).Cells("QTY").Value) Then : 報價明細表2_dgv.Rows(i).Cells("QTY").Style.ForeColor = Color.White : Else
                    If 報價明細表2_dgv.Rows(i).Cells("QTY").Value = 0 Then : 報價明細表2_dgv.Rows(i).Cells("QTY").Style.ForeColor = Color.White
                    Else : 報價明細表2_dgv.Rows(i).Cells("QTY").Style.ForeColor = Color.Black : End If : End If
            Next

            If 報價明細表2_dgv.Rows(e.RowIndex).Cells("選擇").Value = True Then
                報價明細表2_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightGreen
            Else : 報價明細表2_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White : End If
        End If
    End Sub
    Private Sub 合約1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            合約編號_1_tb.Text = 合約1_dgv.Rows(e.RowIndex).Cells("合約編號").Value : Set_合約報價明細表1()
            If 放大 = True Then : 縮放2_bt.PerformClick() : End If
        End If
    End Sub
    Private Sub BOM表控制_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles BOM表控制_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            主項目_tb.Text = BOM表控制_dgv.Rows(e.RowIndex).Cells("項目").Value.ToString : 項目流水_tb.Text = BOM表控制_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString
            PA = 項目流水_tb.Text : Set_BOM表明細()
        End If
    End Sub
    Private Sub BOM表明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles BOM表明細_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            物料圖1_pb.Image = Nothing
            If BOM表明細_dgv.Rows(e.RowIndex).Cells("料號原則").Value.ToString = "" Then : Else
                PA2 = BOM表明細_dgv.Rows(e.RowIndex).Cells("料號原則").Value.ToString : SQL_物料圖庫_圖檔讀取一()
                While dr.Read() = True
                    Dim unused As Byte() = New Byte(-1) {}
                    Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                    Dim oStream As New MemoryStream(bytes)
                    物料圖1_pb.Image = Bitmap.FromStream(oStream)
                End While : conn.Close() : 物料圖1_pb.SizeMode = 4
            End If
        End If
    End Sub
    Private Sub 合約讀取()
        試算表_cb.Items.Clear() : 試算表_cb.Text = "試算表1" : 表號_tb.Text = "B01"
        '---------合約生成--------------------------------------------------------------------------------------------------------------
        合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取()

        If Strings.Left(合約_dgv("合約編號", 選取位置).Value.ToString, 3) = "GCM" Then : 合約編號_cb.Text = "GCM" : Else : 合約編號_cb.Text = "ICS" : End If
        合約編號1_tb.Text = 合約_dgv("約號甲方", 選取位置).Value.ToString : 合約編號2_tb.Text = 合約_dgv("約號排序", 選取位置).Value.ToString
        合約編號3_tb.Text = 合約_dgv("約號尾序", 選取位置).Value.ToString : 報價說明_tb.Text = 合約_dgv("報價說明", 選取位置).Value.ToString
        客戶名稱_tb.Text = 合約_dgv("客戶名稱", 選取位置).Value.ToString : 負責人_A_cb.Text = 合約_dgv("負責人A", 選取位置).Value.ToString
        工程地點_tb.Text = 合約_dgv("工程地點", 選取位置).Value.ToString : 客戶地址_tb.Text = 合約_dgv("客戶地址", 選取位置).Value.ToString
        工程名稱_中_tb.Text = 合約_dgv("工程名稱_中", 選取位置).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv("工程名稱_英", 選取位置).Value.ToString
        負責人_B_cb.Text = 合約_dgv("負責人B", 選取位置).Value.ToString : 我司地址_tb.Text = 合約_dgv("我司地址", 選取位置).Value.ToString
        CH2.Checked = True : NUD3.Value = 合約_dgv("工程總價", 選取位置).Value : 工程款1_nud.Value = 合約_dgv("第一期比例", 選取位置).Value
        工程款2_nud.Value = 合約_dgv("第二期比例", 選取位置).Value : 工程款3_nud.Value = 合約_dgv("第三期比例", 選取位置).Value
        工程款4_nud.Value = 合約_dgv("第四期比例", 選取位置).Value : 工程款5_nud.Value = 合約_dgv("第五期比例", 選取位置).Value
        工期_nud.Value = 合約_dgv("工期", 選取位置).Value : 逾期_bt.Text = 合約_dgv("逾期_中", 選取位置).Value.ToString
        最高扣款_bt.Text = 合約_dgv("最高扣罰_中", 選取位置).Value.ToString : 逾期_英_bt.Text = 合約_dgv("逾期_英", 選取位置).Value.ToString
        最高扣款_英_bt.Text = 合約_dgv("最高扣罰_英", 選取位置).Value.ToString : 減價_bt.Text = 合約_dgv("減價", 選取位置).Value.ToString
        廠區_中文_tb.Text = 合約_dgv("工程廠區", 選取位置).Value.ToString : 最末頁_cb.Text = 合約_dgv("頁數", 選取位置).Value.ToString
        立約日期_dtp.Value = 合約_dgv("立約日期", 選取位置).Value : 合約種類_cb.Text = 合約_dgv("合約種類", 選取位置).Value.ToString
        合約停止_ch.Checked = 合約_dgv("停止", 選取位置).Value

        If 合約_dgv("幣別", 選取位置).Value.ToString = “美金“ Then : 美金_ch.Checked = True : 台幣_ch.Checked = False : 人民幣_ch.Checked = False : 印尼盾_ch.Checked = False
        ElseIf 合約_dgv("幣別", 選取位置).Value.ToString = "台幣" Then : 美金_ch.Checked = False : 台幣_ch.Checked = True : 人民幣_ch.Checked = False : 印尼盾_ch.Checked = False
        ElseIf 合約_dgv("幣別", 選取位置).Value.ToString = "人民幣" Then : 美金_ch.Checked = False : 台幣_ch.Checked = False : 人民幣_ch.Checked = True : 印尼盾_ch.Checked = False
        ElseIf 合約_dgv("幣別", 選取位置).Value.ToString = "印尼盾" Then : 美金_ch.Checked = False : 台幣_ch.Checked = False : 人民幣_ch.Checked = False : 印尼盾_ch.Checked = True
        End If
        折讓比例_nud.Value = 合約_dgv(“折讓比例", 選取位置).Value : 歸零位數_nud.Value = 合約_dgv("歸零位數", 選取位置).Value
        稅前歸零_ch.Checked = 合約_dgv("稅前歸零", 選取位置).Value : 稅後歸零_ch.Checked = 合約_dgv(“稅後歸零", 選取位置).Value

        圖片庫 = 合約_dgv("簽回檔圖庫", 選取位置).Value.ToString : 簽回檔 = 合約_dgv("簽回", 選取位置).Value

        PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
        PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()

        '---------試算表--------------------------------------------------------------------------------------------------------------
        合約編號_tb.Text = 合約_dgv("合約編號", 選取位置).Value.ToString
        PA = 合約_dgv("合約編號", 選取位置).Value.ToString : SQL_合約試算分表查詢()
        If dr.Read() Then
            試算表_cb.Items.Clear() : conn.Close() : SQL_合約試算分表查詢() : While (dr.Read()) : 試算表_cb.Items.Add(dr("試算表")) : End While
            conn.Close() : 試算表_cb.SelectedIndex = 0 : 表號_tb.Text = "B01" : PA2 = 表號_tb.Text : SQL_合約試算控制表查詢()
            If dr.Read() Then
                樓層_迴路_cb.Items.Clear() : conn.Close() : SQL_合約試算控制表查詢() : While (dr.Read()) : 樓層_迴路_cb.Items.Add(dr("樓層/迴路")) : End While : conn.Close()
                樓層_迴路_cb.SelectedIndex = 0 : 表頭_tb.Text = "A01" : Set_合約試算控制表_查詢()
            Else
                樓層_迴路_cb.Items.Clear() : 表頭_tb.Text = "" : Set_合約試算控制表_查詢()
            End If : conn.Close()
        Else
            conn.Close() : PA1 = 試算表_cb.Text : PA2 = 表號_tb.Text : SQL_合約試算分表_新增()
        End If : conn.Close()
        '---------報價單--------------------------------------------------------------------------------------------------------------
        報價單合約編號_tb.Text = 合約_dgv("合約編號", 選取位置).Value.ToString : 報價單客戶名稱_cb.Text = 合約_dgv("客戶名稱", 選取位置).Value.ToString
        報價工程名稱_中_tb.Text = 合約_dgv("工程名稱_中", 選取位置).Value.ToString : 報價工程名稱_英_tb.Text = 合約_dgv("工程名稱_英", 選取位置).Value.ToString
        報價單立約日期_dtp.Value = 合約_dgv("立約日期", 選取位置).Value.ToString
        PA = 合約編號_tb.Text : 合約_lb.Text = "合約"
        Set_合約報價總表() : Set_合約報價係數() : Set_合約報價明細表() : 報價總表_dgv_自動計算()

        If 報價明細表_dgv.Rows.Count = 0 Then : For i As Integer = 1 To 3 : 新增資料2_bt.PerformClick() : Next : End If
    End Sub
    Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 選取位置 = e.RowIndex : 合約讀取() : End If : 縮放2_bt.PerformClick() : 縮放1_bt.PerformClick()
    End Sub
    Private Sub 試算表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 試算表_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 直接輸入_ch.Checked = False And 使用計算機_ch.Checked = True Then
                If e.ColumnIndex > 1 And e.ColumnIndex < 40 Then
                    計算機.ShowDialog() : If IsNumeric(PA30) Then : 試算表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = PA30 : 試算表計算() : End If
                End If
            End If : 料號1_tb.Text = 試算表_dgv.Rows(e.RowIndex).Cells("料號").Value.ToString

            PA2 = Strings.StrReverse(Strings.Mid(Strings.StrReverse(試算表_dgv.Rows(e.RowIndex).Cells("料號").Value.ToString), 6, 50)) : SQL_物料圖庫_圖檔讀取一()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                Dim oStream As New MemoryStream(bytes)
                物料圖_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 物料圖_pb.SizeMode = 4
        End If
    End Sub
    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            PA = 物料清單_dgv(1, e.RowIndex).Value.ToString
            PA1 = 物料清單_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 物料清單_dgv.Rows(e.RowIndex).Cells("料號原則").Value
            SQL_物料圖庫_圖檔讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                Dim oStream As New MemoryStream(bytes)
                物料圖_pb.Image = Bitmap.FromStream(oStream)
                物料圖1_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 物料圖_pb.SizeMode = 4 : 物料圖1_pb.SizeMode = 4
            '------------------------------------------------------------------------------------------------------------------------------------------
            SQL_建築物料請購單申請_物料規格讀取()
            If dr.Read() Then : KKK2 = dr("規格庫編號") : PA3 = dr("規格庫抬頭指定") : PA4 = dr("群組碼") : End If : conn.Close()
            '------------------------------------------------------------------------------------------------------------------------------------------
            SQL_規格庫抬頭讀取()
            If dr.Read() Then : AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") : End If
            conn.Close()
            '------------------------------------------------------------------------------------------------------------------------------------------
            Dim ds3 As New DataSet
            物料規格_dgv.DataSource = Nothing : ds3.Clear()
            物料規格_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            物料規格_dgv.ColumnHeadersHeight = 25 : 物料規格_dgv.AllowUserToAddRows = False : 物料規格_dgv.RowTemplate.Height = 20
            If KKK2 = "SQLB03" Then : SQL_物料規格_SQLB03() : ElseIf KKK2 = "SQLB04" Then : SQL_物料規格_SQLB04() : ElseIf KKK2 = "SQLB05" Then : SQL_物料規格_SQLB05()
            ElseIf KKK2 = "SQLB06" Then : SQL_物料規格_SQLB06() : ElseIf KKK2 = "SQLB07" Then : SQL_物料規格_SQLB07() : ElseIf KKK2 = "SQLB08" Then : SQL_物料規格_SQLB08() : End If
            da.Fill(ds3) : 物料規格_dgv.DataSource = ds3.Tables(0) : conn.Close() : 料號1_tb.Text = ""

            物料規格_dgv.Columns(0).Visible = False : 物料規格_dgv.Columns(1).Visible = False : 物料規格_dgv.Columns(3).Visible = False
            物料規格_dgv.Columns(2).Width = 17 : 物料規格_dgv.Columns(12).Visible = False : 物料規格_dgv.Columns(13).Visible = False : 物料規格_dgv.Columns(14).Visible = False
            物料規格_dgv.Columns(15).Visible = False
            If KKK2 = "SQLB03" Then
                物料規格_dgv.Columns(7).Visible = False : 物料規格_dgv.Columns(8).Visible = False : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False
                物料規格_dgv.Columns(11).Visible = False
                物料規格_dgv.Columns(4).FillWeight = 213 : 物料規格_dgv.Columns(5).FillWeight = 213 : 物料規格_dgv.Columns(6).FillWeight = 214
            ElseIf KKK2 = "SQLB04" Then
                物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = False : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False
                物料規格_dgv.Columns(11).Visible = False
                物料規格_dgv.Columns(4).FillWeight = 160 : 物料規格_dgv.Columns(5).FillWeight = 160 : 物料規格_dgv.Columns(6).FillWeight = 160 : 物料規格_dgv.Columns(7).FillWeight = 160
            ElseIf KKK2 = "SQLB05" Then
                物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = False : 物料規格_dgv.Columns(10).Visible = False
                物料規格_dgv.Columns(11).Visible = False
                物料規格_dgv.Columns(4).FillWeight = 128 : 物料規格_dgv.Columns(5).FillWeight = 128 : 物料規格_dgv.Columns(6).FillWeight = 128 : 物料規格_dgv.Columns(7).FillWeight = 128
                物料規格_dgv.Columns(8).FillWeight = 128
            ElseIf KKK2 = "SQLB06" Then
                物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = False
                物料規格_dgv.Columns(11).Visible = False
                物料規格_dgv.Columns(4).FillWeight = 106 : 物料規格_dgv.Columns(5).FillWeight = 107 : 物料規格_dgv.Columns(6).FillWeight = 106 : 物料規格_dgv.Columns(7).FillWeight = 107
                物料規格_dgv.Columns(8).FillWeight = 106 : 物料規格_dgv.Columns(9).FillWeight = 108
            ElseIf KKK2 = "SQLB07" Then
                物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = True
                物料規格_dgv.Columns(11).Visible = False
                物料規格_dgv.Columns(4).FillWeight = 91 : 物料規格_dgv.Columns(5).FillWeight = 92 : 物料規格_dgv.Columns(6).FillWeight = 91 : 物料規格_dgv.Columns(7).FillWeight = 92
                物料規格_dgv.Columns(8).FillWeight = 91 : 物料規格_dgv.Columns(9).FillWeight = 92 : 物料規格_dgv.Columns(10).FillWeight = 91
            ElseIf KKK2 = "SQLB08" Then
                物料規格_dgv.Columns(7).Visible = True : 物料規格_dgv.Columns(8).Visible = True : 物料規格_dgv.Columns(9).Visible = True : 物料規格_dgv.Columns(10).Visible = True
                物料規格_dgv.Columns(11).Visible = True
                物料規格_dgv.Columns(4).FillWeight = 80 : 物料規格_dgv.Columns(5).FillWeight = 80 : 物料規格_dgv.Columns(6).FillWeight = 80 : 物料規格_dgv.Columns(7).FillWeight = 80
                物料規格_dgv.Columns(8).FillWeight = 80 : 物料規格_dgv.Columns(9).FillWeight = 80 : 物料規格_dgv.Columns(10).FillWeight = 80 : 物料規格_dgv.Columns(11).FillWeight = 80
            End If
            物料規格_dgv.EditMode = DataGridViewEditMode.EditOnEnter
            For i As Integer = 0 To 11 : 物料規格_dgv.Columns(i).ReadOnly = True : Next

            For i As Integer = 0 To 物料規格_dgv.Rows.Count - 1
                物料規格_dgv.Rows(i).Cells("No").Value = i + 1 : 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = 0
                If Not IsNumeric(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then : MessageBox.Show("欄位輸入必須為數值")
                ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格_dgv.Rows(i).Cells("Pilih").Value = True
                ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then : 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0"
                    物料規格_dgv.Rows(i).Cells("Pilih").Value = False
                End If
            Next i
        End If
    End Sub
    Private Sub 報價係數_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價係數_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            係數項目_cb.Text = 報價係數_dgv.Rows(e.RowIndex).Cells("項目").Value.ToString : 係數單位_cb.Text = 報價係數_dgv.Rows(e.RowIndex).Cells("單位").Value.ToString
            係數_nup.Value = 報價係數_dgv.Rows(e.RowIndex).Cells("係數").Value : 係數流水號_tb.Text = 報價係數_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString
            係數合約號_tb.Text = 報價係數_dgv.Rows(e.RowIndex).Cells("合約號碼").Value.ToString
        End If
    End Sub
    Private Sub 物料規格_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料規格_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            料號1_tb.Text = 物料規格_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString : 料號_tb.Text = 物料規格_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString
            PA47 = 料號_tb.Text : SQL_採購單價查詢()
            If dr.Read Then : 最後採購日_tb.Text = Strings.Left(dr("採購日"), 4) & "/" & Strings.Mid(dr("採購日"), 5, 2) & "/" & Strings.Right(dr("採購日"), 2)
                歷史單價_tb.Text = Strings.Format(CInt(dr("單價").ToString), "#,##0") : Else : 最後採購日_tb.Text = "" : 歷史單價_tb.Text = "0"
            End If
        End If
    End Sub
    Private Sub 報價總表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價總表_dgv.CellClick
        If e.RowIndex = -1 Then : Else : DGV位置1.Value = e.RowIndex
            總表流水_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : ITEM1_cb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("ITEM").Value.ToString()
            單位_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("UNIT").Value.ToString() : 備註_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("REMARKS").Value.ToString()
            內容_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("DESCRIPTION").Value.ToString() : 選擇項_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("排序").Value.ToString()
            合計項_cb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("DESCRIPTION").Value.ToString() : 選擇項3_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("排序").Value.ToString()

            If 合計項_cb.Text = 內容_tb.Text Then : Else : 合計項_cb.Text = "" : End If

            DGV_X = e.ColumnIndex : DGV_Y = e.RowIndex : 選擇項_tb.Text = e.RowIndex
            If DGV_X = 4 Or DGV_X = 5 Or DGV_X = 6 Then
                If 目前選擇 = "寫入資料" Then : X_3_tb.Text = e.ColumnIndex : Y_3_tb.Text = e.RowIndex
                Else
                    If IsDBNull(報價總表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then : 報價總表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = 0 : End If
                    數值2_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
                End If
            End If
        End If
    End Sub
    Private Sub 報價明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價明細表_dgv.CellClick
        If e.RowIndex = -1 Then : Else : DGV位置2.Value = e.RowIndex
            If 啟用批量選擇_ch.Checked = True Then
                If 報價明細表_dgv("S", e.RowIndex).Value = True Then
                    報價明細表_dgv("S", e.RowIndex).Value = False : 報價明細表_dgv.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black
                Else
                    報價明細表_dgv("S", e.RowIndex).Value = True : 報價明細表_dgv.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
                End If
            End If
            明細表流水_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : ITEM2_cb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("ITEM").Value.ToString()
            單位1_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("UNIT").Value.ToString() : 備註1_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("REMARKS").Value.ToString()
            內容1_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("DESCRIPTION").Value.ToString() : 選擇項2_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("排序").Value.ToString()
            合計項1_cb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("DESCRIPTION").Value.ToString() : ITEM3_cb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("ITEM").Value.ToString()
            料號_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("料號").Value.ToString() : 申請數_nud.Value = 報價明細表_dgv.Rows(e.RowIndex).Cells("QTY").Value.ToString()
            單位2_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells("UNIT").Value.ToString()

            物料圖1_pb.Image = Nothing
            If 報價明細表_dgv.Rows(e.RowIndex).Cells("料號原則").Value.ToString = "" Then : Else
                PA2 = 報價明細表_dgv.Rows(e.RowIndex).Cells("料號原則").Value.ToString : SQL_物料圖庫_圖檔讀取一()
                While dr.Read() = True
                    Dim unused As Byte() = New Byte(-1) {}
                    Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                    Dim oStream As New MemoryStream(bytes)
                    物料圖1_pb.Image = Bitmap.FromStream(oStream)
                End While : conn.Close() : 物料圖1_pb.SizeMode = 4
            End If

            If 合計項1_cb.Text = 內容1_tb.Text Then : Else : 合計項1_cb.Text = "" : End If
            DGV_X = e.ColumnIndex : DGV_Y = e.RowIndex : 選擇項1_tb.Text = e.RowIndex
            If DGV_X = 4 Or DGV_X = 5 Or DGV_X = 6 Or DGV_X = 8 Or DGV_X = 9 Or DGV_X = 10 Or DGV_X = 11 Or DGV_X = 12 Or DGV_X = 13 Or DGV_X = 14 Or DGV_X = 15 Or DGV_X = 16 Or DGV_X = 17 Then
                If 目前選擇 = "寫入資料" Then : X_2_tb.Text = e.ColumnIndex : Y_2_tb.Text = e.RowIndex
                Else
                    If IsDBNull(報價明細表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then : 報價明細表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = 0 : End If
                    數值4_tb.Text = 報價明細表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
                End If
            End If
        End If
    End Sub
    Private Sub 報價係數1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價係數1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If IsDBNull(報價係數1_dgv.Rows(e.RowIndex).Cells(3).Value) Then : 數值4_tb.Text = 0 : Else : 數值4_tb.Text = 報價係數1_dgv.Rows(e.RowIndex).Cells(3).Value : End If
        End If
    End Sub
    Private Sub 報價明細表1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價明細表1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If IsDBNull(報價明細表1_dgv.Rows(e.RowIndex).Cells(6).Value) Then : 數值2_tb.Text = 0 : Else : 數值2_tb.Text = 報價明細表1_dgv.Rows(e.RowIndex).Cells(6).Value : End If
            ITEM1_cb.Text = 報價明細表1_dgv.Rows(e.RowIndex).Cells("ITEM").Value.ToString() : 內容_tb.Text = 報價明細表1_dgv.Rows(e.RowIndex).Cells("DESCRIPTION").Value.ToString()
            單位_tb.Text = 報價明細表1_dgv.Rows(e.RowIndex).Cells("UNIT").Value.ToString() : 連動編號_tb.Text = ""
        End If
    End Sub
    Private Sub 報價明細表1_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價明細表1_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else
            報價總表_dgv.Rows(DGV位置1.Value).Cells("明細連動").Value = 報價明細表1_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString()
        End If
    End Sub
    Private Sub 報價總表_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價總表_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else
            If 視窗2_pl.Visible = True Then
                DGV_X = e.ColumnIndex : DGV_Y = e.RowIndex : 選擇項_tb.Text = e.RowIndex
                If DGV_X = 4 Or DGV_X = 5 Or DGV_X = 6 Then
                    報價總表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = NUD_03.Value : 清除_bt.PerformClick() : Me.ActiveControl = 等於_bt
                End If
            End If
            連動編號_tb.Text = 報價總表_dgv.Rows(e.RowIndex).Cells("明細連動").Value.ToString
            Me.TabControl1.SelectedTab = Me.工程合約報價明細_tc
            Dim 查詢 As Boolean
            For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                If 報價總表_dgv.Rows(e.RowIndex).Cells("DESCRIPTION").Value.ToString() = 報價明細表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString() Then
                    報價明細表_dgv.CurrentCell = 報價明細表_dgv.Rows(i).Cells(1) : 查詢 = True : Exit For : Else : 查詢 = False
                End If
            Next
            If 查詢 = False Then
                If DGV位置2.Value >= 報價明細表_dgv.Rows.Count Then : DGV位置2.Value = 報價明細表_dgv.Rows.Count - 1 : End If
                If DGV位置2.Value > 0 Then : 報價明細表_dgv.CurrentCell = 報價明細表_dgv.Rows(DGV位置2.Value).Cells(1) : End If
            End If
        End If
    End Sub
    Private Sub 報價明細表_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價明細表_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else
            If 視窗3_pl.Visible = True Then
                DGV_X = e.ColumnIndex : DGV_Y = e.RowIndex : 選擇項1_tb.Text = e.RowIndex
                If DGV_X = 4 Or DGV_X = 5 Or DGV_X = 6 Or DGV_X = 8 Or DGV_X = 9 Or DGV_X = 13 Then
                    報價明細表_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = NUD_06.Value : 清除1_bt.PerformClick() : Me.ActiveControl = 等於1_bt
                End If
            End If
        End If
    End Sub

    Private Sub 報價總表_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 報價總表_dgv.CellEndEdit
        If 啟動運算 = True Then : 報價總表_dgv_自動計算() : End If
    End Sub
    Private Sub 報價明細表_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 報價明細表_dgv.CellEndEdit
        If 啟動運算 = True Then : 報價明細表_dgv_物料顯示() : 報價明細表_dgv_自動計算() : 報價總表_dgv_自動計算() : End If
    End Sub
    Private Sub 試算表_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 試算表_dgv.CellEnter
        試算表計算()
    End Sub
    Private Sub 物料規格_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 物料規格_dgv.CellEnter
        For i As Integer = 0 To 物料規格_dgv.Rows.Count - 1
            If Not IsNumeric(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) Then
                MessageBox.Show("欄位輸入必須為數值") : 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0" : 物料規格_dgv.Rows(i).Cells("Pilih").Value = False
            ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) > 0 Then : 物料規格_dgv.Rows(i).Cells("Pilih").Value = True
            ElseIf Val(物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value) <= 0 Then : 物料規格_dgv.Rows(i).Cells("申請數 Terapkan").Value = "0"
                物料規格_dgv.Rows(i).Cells("Pilih").Value = False
            End If
        Next i
    End Sub
    Private Sub 試算表計算()
        For i As Integer = 0 To 試算表_dgv.Rows.Count - 1
            If 試算表_dgv.Rows(i).Cells("係數").Value = False Then
                試算表_dgv.Rows(i).Cells("Total").Value = 試算表_dgv.Rows(i).Cells(3).Value + 試算表_dgv.Rows(i).Cells(4).Value +
                試算表_dgv.Rows(i).Cells(5).Value + 試算表_dgv.Rows(i).Cells(6).Value + 試算表_dgv.Rows(i).Cells(7).Value + 試算表_dgv.Rows(i).Cells(8).Value +
                試算表_dgv.Rows(i).Cells(9).Value + 試算表_dgv.Rows(i).Cells(10).Value + 試算表_dgv.Rows(i).Cells(11).Value + 試算表_dgv.Rows(i).Cells(12).Value +
                試算表_dgv.Rows(i).Cells(13).Value + 試算表_dgv.Rows(i).Cells(14).Value + 試算表_dgv.Rows(i).Cells(15).Value + 試算表_dgv.Rows(i).Cells(16).Value +
                試算表_dgv.Rows(i).Cells(17).Value + 試算表_dgv.Rows(i).Cells(18).Value + 試算表_dgv.Rows(i).Cells(19).Value + 試算表_dgv.Rows(i).Cells(20).Value +
                試算表_dgv.Rows(i).Cells(21).Value + 試算表_dgv.Rows(i).Cells(22).Value + 試算表_dgv.Rows(i).Cells(23).Value + 試算表_dgv.Rows(i).Cells(24).Value +
                試算表_dgv.Rows(i).Cells(25).Value + 試算表_dgv.Rows(i).Cells(26).Value + 試算表_dgv.Rows(i).Cells(27).Value + 試算表_dgv.Rows(i).Cells(28).Value +
                試算表_dgv.Rows(i).Cells(29).Value + 試算表_dgv.Rows(i).Cells(30).Value + 試算表_dgv.Rows(i).Cells(31).Value + 試算表_dgv.Rows(i).Cells(32).Value +
                試算表_dgv.Rows(i).Cells(33).Value + 試算表_dgv.Rows(i).Cells(34).Value + 試算表_dgv.Rows(i).Cells(35).Value + 試算表_dgv.Rows(i).Cells(36).Value +
                試算表_dgv.Rows(i).Cells(37).Value + 試算表_dgv.Rows(i).Cells(38).Value + 試算表_dgv.Rows(i).Cells(39).Value + 試算表_dgv.Rows(i).Cells(40).Value +
                試算表_dgv.Rows(i).Cells(41).Value + 試算表_dgv.Rows(i).Cells(42).Value
            Else
                試算表_dgv.Rows(i).Cells("Total").Value = (試算表_dgv.Rows(i).Cells(3).Value + 試算表_dgv.Rows(i).Cells(4).Value +
                試算表_dgv.Rows(i).Cells(5).Value + 試算表_dgv.Rows(i).Cells(6).Value + 試算表_dgv.Rows(i).Cells(7).Value + 試算表_dgv.Rows(i).Cells(8).Value +
                試算表_dgv.Rows(i).Cells(9).Value + 試算表_dgv.Rows(i).Cells(10).Value + 試算表_dgv.Rows(i).Cells(11).Value + 試算表_dgv.Rows(i).Cells(12).Value +
                試算表_dgv.Rows(i).Cells(13).Value + 試算表_dgv.Rows(i).Cells(14).Value + 試算表_dgv.Rows(i).Cells(15).Value + 試算表_dgv.Rows(i).Cells(16).Value +
                試算表_dgv.Rows(i).Cells(17).Value + 試算表_dgv.Rows(i).Cells(18).Value + 試算表_dgv.Rows(i).Cells(19).Value + 試算表_dgv.Rows(i).Cells(20).Value +
                試算表_dgv.Rows(i).Cells(21).Value + 試算表_dgv.Rows(i).Cells(22).Value + 試算表_dgv.Rows(i).Cells(23).Value + 試算表_dgv.Rows(i).Cells(24).Value +
                試算表_dgv.Rows(i).Cells(25).Value + 試算表_dgv.Rows(i).Cells(26).Value + 試算表_dgv.Rows(i).Cells(27).Value + 試算表_dgv.Rows(i).Cells(28).Value +
                試算表_dgv.Rows(i).Cells(29).Value + 試算表_dgv.Rows(i).Cells(30).Value + 試算表_dgv.Rows(i).Cells(31).Value + 試算表_dgv.Rows(i).Cells(32).Value +
                試算表_dgv.Rows(i).Cells(33).Value + 試算表_dgv.Rows(i).Cells(34).Value + 試算表_dgv.Rows(i).Cells(35).Value + 試算表_dgv.Rows(i).Cells(36).Value +
                試算表_dgv.Rows(i).Cells(37).Value + 試算表_dgv.Rows(i).Cells(38).Value + 試算表_dgv.Rows(i).Cells(39).Value + 試算表_dgv.Rows(i).Cells(40).Value +
                試算表_dgv.Rows(i).Cells(41).Value + 試算表_dgv.Rows(i).Cells(42).Value) / 100 * (100 + 係數_nud.Value)
            End If
        Next i
    End Sub
    Private Sub 報價總表_dgv_自動計算()
        For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
            If 報價總表_dgv.Rows(i).Cells("明細連動").Value.ToString <> "" Then
                For ii As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                    If 報價總表_dgv.Rows(i).Cells("明細連動").Value.ToString = 報價明細表_dgv.Rows(ii).Cells("流水號").Value.ToString Then
                        報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value = 報價明細表_dgv.Rows(ii).Cells("AMOUNT" & 幣別).Value.ToString : Exit For
                    End If
                Next
            End If
        Next
        Dim 合計, 合計無管, 稅金 As Double : 合計 = 0 : 稅金 = 0
        For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
            '---------計算項目-------------------------------------------------------------------------------------------------------------------------------------
            If 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "*" Or 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "" Or
                報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "@" Or 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "^" Then : Else
                If IsDBNull(報價總表_dgv.Rows(i).Cells("QTY").Value) Then : 報價總表_dgv.Rows(i).Cells("QTY").Value = 0 : End If
                If IsDBNull(報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value) Then : 報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value = 0 : End If
                報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(報價總表_dgv.Rows(i).Cells("QTY").Value) * CLng(報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value)
            End If
            '---------管理費加總-------------------------------------------------------------------------------------------------------------------------------------
            If 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString <> "*" And 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString <> "@" And
               報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString <> "^" And 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString <> "折讓 Discount" Then
                合計無管 += 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value
            End If
            If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 0%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 1%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.01)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 2%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.02)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 3%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.03)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 4%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.04)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 5%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.05)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 6%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.06)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 7%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.07)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 8%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.08)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 9%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.09)
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "管理費 10%" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計無管 * 0.1)
            End If

            '---------計算彙總-------------------------------------------------------------------------------------------------------------------------------------
            If 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString <> "*" And 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString <> "@" Then
                合計 += 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value
            End If
            If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "合 計 Total" Then : 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = 合計 : End If

            If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 0% Tax" Then
                報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計 * 0) : 稅金 = 合計 * 0 : 稅額顯示_lb.Text = "PPN 0%稅額 = Rp. "
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 5% Tax" Then
                報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計 * 0.05) : 稅金 = 合計 * 0.05 : 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. "
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 10% Tax" Then
                報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計 * 0.1) : 稅金 = 合計 * 0.1 : 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. "
            ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 11% Tax" Then
                報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計 * 0.11) : 稅金 = 合計 * 0.11 : 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. "
            End If

            If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "總計 Grand Total" Then
                報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(合計 + Fix(稅金))
                If Strings.Right(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString, 3) = "001" Then
                    報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value) - 1
                ElseIf Strings.Right(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString, 3) = "999" Then
                    報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = CLng(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value) + 1
                End If
                NUD3.Value = CLng(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value)
            End If
            '------------數字為0隱藏-----------------------------------------------------------------------------------------------
            If IsDBNull(報價總表_dgv.Rows(i).Cells(4).Value) Then : 報價總表_dgv.Rows(i).Cells(4).Style.ForeColor = Color.White : Else
                If 報價總表_dgv.Rows(i).Cells(4).Value = 0 Then : 報價總表_dgv.Rows(i).Cells(4).Style.ForeColor = Color.White
                Else : 報價總表_dgv.Rows(i).Cells(4).Style.ForeColor = Color.Black : End If : End If
            If IsDBNull(報價總表_dgv.Rows(i).Cells(5).Value) Then : 報價總表_dgv.Rows(i).Cells(5).Style.ForeColor = Color.White : Else
                If 報價總表_dgv.Rows(i).Cells(5).Value = 0 Then : 報價總表_dgv.Rows(i).Cells(5).Style.ForeColor = Color.White
                Else : 報價總表_dgv.Rows(i).Cells(5).Style.ForeColor = Color.Black : End If : End If
            If IsDBNull(報價總表_dgv.Rows(i).Cells(6).Value) Then : 報價總表_dgv.Rows(i).Cells(6).Style.ForeColor = Color.White : Else
                If 報價總表_dgv.Rows(i).Cells(6).Value = 0 Then : 報價總表_dgv.Rows(i).Cells(6).Style.ForeColor = Color.White
                Else : 報價總表_dgv.Rows(i).Cells(6).Style.ForeColor = Color.Black : End If : End If
        Next
        '------------彙總計算-----------------------------------------------------------------------------------------------
        Dim 折讓 As Long = 0 : 未折價前_tb.Text = "0" : 報價小計_tb.Text = "0"
        For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
            If 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "*" Or 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "@" Or
                報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "折讓 Discount" Then : Else
                未折價前_tb.Text = CLng(未折價前_tb.Text) + CLng(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value)
            End If
            If 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "*" Or 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "@" Then : Else
                報價小計_tb.Text = CLng(報價小計_tb.Text) + CLng(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value)
            End If
            If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "折讓 Discount" Then
                折讓 += CLng(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value)
            End If
        Next
        預估利潤_tb.Text = Strings.Format(CLng(總報價_tb.Text) - (CLng(總成本_tb.Text) - 折讓), "#,##0")
        If (CLng(總報價_tb.Text) + 折讓) = 0 Then : 利潤比4_tb.Text = "0 %" : Else
            利潤比4_tb.Text = Strings.Format((1 - ((CLng(總成本_tb.Text)) / (CLng(總報價_tb.Text) + 折讓))) * 100, "#,##0") & " %"
        End If
        未折價前_tb.Text = Strings.Format(CLng(未折價前_tb.Text), "#,##0") : 報價小計_tb.Text = Strings.Format(CLng(報價小計_tb.Text), "#,##0")
    End Sub
    Private Sub 報價明細表_dgv_物料顯示()
        For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
            If 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString = "" Then
                報價明細表_dgv.Rows(i).Cells("D1").Value = False : 報價明細表_dgv.Rows(i).Cells("D2").Value = False
                報價明細表_dgv.Rows(i).Cells("D3").Value = False : 報價明細表_dgv.Rows(i).Cells("D4").Value = False
                報價明細表_dgv.Rows(i).Cells("D5").Value = False : 報價明細表_dgv.Rows(i).Cells("D6").Value = False
                報價明細表_dgv.Rows(i).Cells("D7").Value = False : 報價明細表_dgv.Rows(i).Cells("D8").Value = False
            End If
            If 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then
                If 報價明細表_dgv.Rows(i).Cells("預設").Value = True Then
                    報價明細表_dgv.Rows(i).Cells("D1").Value = 報價明細表_dgv.Rows(i).Cells("S1").Value : 報價明細表_dgv.Rows(i).Cells("D2").Value = 報價明細表_dgv.Rows(i).Cells("S2").Value
                    報價明細表_dgv.Rows(i).Cells("D3").Value = 報價明細表_dgv.Rows(i).Cells("S3").Value : 報價明細表_dgv.Rows(i).Cells("D4").Value = 報價明細表_dgv.Rows(i).Cells("S4").Value
                    報價明細表_dgv.Rows(i).Cells("D5").Value = 報價明細表_dgv.Rows(i).Cells("S5").Value : 報價明細表_dgv.Rows(i).Cells("D6").Value = 報價明細表_dgv.Rows(i).Cells("S6").Value
                    報價明細表_dgv.Rows(i).Cells("D7").Value = 報價明細表_dgv.Rows(i).Cells("S7").Value : 報價明細表_dgv.Rows(i).Cells("D8").Value = 報價明細表_dgv.Rows(i).Cells("S8").Value
                End If
                Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
                If 詳細資料2_ch.Checked = True Then
                    If 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D1").Value = True Then
                            ZA1 = 報價明細表_dgv.Rows(i).Cells("AA1").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D2").Value = True Then
                            ZA2 = 報價明細表_dgv.Rows(i).Cells("AA2").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then
                                物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D3").Value = True Then
                            ZA3 = 報價明細表_dgv.Rows(i).Cells("AA3").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then
                                物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D4").Value = True Then
                            ZA4 = 報價明細表_dgv.Rows(i).Cells("AA4").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then
                                物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D5").Value = True Then
                            ZA5 = 報價明細表_dgv.Rows(i).Cells("AA5").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then
                                物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D6").Value = True Then
                            ZA6 = 報價明細表_dgv.Rows(i).Cells("AA6").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then
                                物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D7").Value = True Then
                            ZA7 = 報價明細表_dgv.Rows(i).Cells("AA7").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then
                                物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D8").Value = True Then
                            ZA8 = 報價明細表_dgv.Rows(i).Cells("AA8").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then
                                物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If : End If
                Else
                    If 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D1").Value = True Then
                            ZA1 = 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D2").Value = True Then
                            ZA2 = 報價明細表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D3").Value = True Then
                            ZA3 = 報價明細表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D4").Value = True Then
                            ZA4 = 報價明細表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D5").Value = True Then
                            ZA5 = 報價明細表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D6").Value = True Then
                            ZA6 = 報價明細表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D7").Value = True Then
                            ZA7 = 報價明細表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If : End If
                    If 報價明細表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D8").Value = True Then
                            ZA8 = 報價明細表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If : End If
                End If
                If 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then
                    報價明細表_dgv.Rows(i).Cells("DESCRIPTION").Value = 報價明細表_dgv.Rows(i).Cells("品名").Value.ToString & " " & 物料規格
                End If
            End If : 報價明細表_dgv.Rows(i).Cells("預設").Value = False
        Next
    End Sub
    Private Sub 報價明細表_dgv_自動計算()
        Dim 合計, 利潤, 工資係數, 工資成本, 工資利潤, 材料係數, 材料成本, 材料利潤 As Double : 合計 = 0 : 工資係數 = 0
        For i As Integer = 0 To 報價係數_dgv.Rows.Count - 1
            If 報價係數_dgv.Rows(i).Cells("項目").Value.ToString = "工資利潤" Then : 工資係數 = 報價係數_dgv.Rows(i).Cells("係數").Value.ToString : Exit For : End If
        Next

        For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
            報價明細表_dgv.Rows(i).Cells("QTY").Value = 報價明細表_dgv.Rows(i).Cells("實際數量").Value.ToString
            '------------------------------------工資計算-----------------------------------------------------------------------------------------------------------
            報價明細表_dgv.Rows(i).Cells("工資成本後價").Value = 報價明細表_dgv.Rows(i).Cells("實際數量").Value * 報價明細表_dgv.Rows(i).Cells("工資成本單價").Value
            If 報價明細表_dgv.Rows(i).Cells("不計").Value = False Then
                報價明細表_dgv.Rows(i).Cells("工資報價單價").Value = 報價明細表_dgv.Rows(i).Cells("工資成本單價").Value * 工資係數 / 100
            Else : 報價明細表_dgv.Rows(i).Cells("工資報價單價").Value = 0 : End If
            報價明細表_dgv.Rows(i).Cells("工資報價後價").Value = 報價明細表_dgv.Rows(i).Cells("工資報價單價").Value * 報價明細表_dgv.Rows(i).Cells("QTY").Value
            '------------------------------------材料計算-----------------------------------------------------------------------------------------------------------
            報價明細表_dgv.Rows(i).Cells("材料成本後價").Value = 報價明細表_dgv.Rows(i).Cells("實際數量").Value * 報價明細表_dgv.Rows(i).Cells("材料成本單價").Value
            If 報價明細表_dgv.Rows(i).Cells("材料係數").Value.ToString = "" Then : 材料係數 = 100 : Else : 材料係數 = 100
                For ii As Integer = 0 To 報價係數_dgv.Rows.Count - 1
                    If 報價係數_dgv.Rows(ii).Cells("項目").Value.ToString = 報價明細表_dgv.Rows(i).Cells("材料係數").Value.ToString Then
                        材料係數 = 報價係數_dgv.Rows(ii).Cells("係數").Value.ToString : Exit For : End If
                Next
            End If
            If 報價明細表_dgv.Rows(i).Cells("不計").Value = False Then
                報價明細表_dgv.Rows(i).Cells("材料報價單價").Value = 報價明細表_dgv.Rows(i).Cells("材料成本單價").Value * 材料係數 / 100
            Else : 報價明細表_dgv.Rows(i).Cells("材料報價單價").Value = 0 : End If
            報價明細表_dgv.Rows(i).Cells("材料報價後價").Value = 報價明細表_dgv.Rows(i).Cells("材料報價單價").Value * 報價明細表_dgv.Rows(i).Cells("QTY").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
            '------------------------------------報價單呈現-----------------------------------------------------------------------------------------------------------
            If 報價明細表_dgv.Rows(i).Cells("不計").Value = False Then
                報價明細表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value = 報價明細表_dgv.Rows(i).Cells("工資報價單價").Value + 報價明細表_dgv.Rows(i).Cells("材料報價單價").Value
                報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = 報價明細表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value * 報價明細表_dgv.Rows(i).Cells("QTY").Value
            Else
                報價明細表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value = 0 : 報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = 0
            End If
            '------------------------------------報價合計計算-----------------------------------------------------------------------------------------------------------
            If 報價明細表_dgv.Rows(i).Cells("ITEM").Value.ToString <> "*" Then
                合計 += 報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).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
            If 報價明細表_dgv.Rows(i).Cells("ITEM").Value.ToString = "*" Then
                報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value = 合計 : 合計 = 0 : 報價明細表_dgv.Rows(i).Cells("利潤").Value = 利潤 : 利潤 = 0
                報價明細表_dgv.Rows(i).Cells("工資成本後價").Value = 工資成本 : 工資成本 = 0 : 報價明細表_dgv.Rows(i).Cells("工資報價後價").Value = 工資利潤 : 工資利潤 = 0
                報價明細表_dgv.Rows(i).Cells("材料成本後價").Value = 材料成本 : 材料成本 = 0 : 報價明細表_dgv.Rows(i).Cells("材料報價後價").Value = 材料利潤 : 材料利潤 = 0
            End If

            '------------數字為0隱藏-----------------------------------------------------------------------------------------------
            If IsDBNull(報價明細表_dgv.Rows(i).Cells(4).Value) Then : 報價明細表_dgv.Rows(i).Cells(4).Style.ForeColor = Color.White : Else
                If 報價明細表_dgv.Rows(i).Cells(4).Value.ToString = "" Then : Else
                    If 報價明細表_dgv.Rows(i).Cells(4).Value = 0 Then : 報價明細表_dgv.Rows(i).Cells(4).Style.ForeColor = Color.White
                    Else : 報價明細表_dgv.Rows(i).Cells(4).Style.ForeColor = Color.Black : End If : End If
            End If
            If IsDBNull(報價明細表_dgv.Rows(i).Cells(5).Value) Then : 報價明細表_dgv.Rows(i).Cells(5).Style.ForeColor = Color.White : Else
                If 報價明細表_dgv.Rows(i).Cells(5).Value.ToString = "" Then : Else
                    If 報價明細表_dgv.Rows(i).Cells(5).Value = 0 Then : 報價明細表_dgv.Rows(i).Cells(5).Style.ForeColor = Color.White
                    Else : 報價明細表_dgv.Rows(i).Cells(5).Style.ForeColor = Color.Black : End If : End If
            End If
            If IsDBNull(報價明細表_dgv.Rows(i).Cells(6).Value) Then : 報價明細表_dgv.Rows(i).Cells(6).Style.ForeColor = Color.White : Else
                If 報價明細表_dgv.Rows(i).Cells(6).Value.ToString = "" Then : Else
                    If 報價明細表_dgv.Rows(i).Cells(6).Value = 0 Then : 報價明細表_dgv.Rows(i).Cells(6).Style.ForeColor = Color.White
                    Else : 報價明細表_dgv.Rows(i).Cells(6).Style.ForeColor = Color.Black : End If
                End If
            End If
        Next
        工資成本 = 0 : 材料成本 = 0 : 工資利潤 = 0 : 材料利潤 = 0
        For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
            If 報價明細表_dgv.Rows(i).Cells("ITEM").Value.ToString = "*" Then
                工資成本 += CLng(報價明細表_dgv.Rows(i).Cells("工資成本後價").Value)
                材料成本 += CLng(報價明細表_dgv.Rows(i).Cells("材料成本後價").Value)
                工資利潤 += CLng(報價明細表_dgv.Rows(i).Cells("工資報價後價").Value)
                材料利潤 += CLng(報價明細表_dgv.Rows(i).Cells("材料報價後價").Value)
            End If
        Next
        預估工資總成本_tb.Text = Strings.Format(工資成本, "#,##0") : 預估材料總成本_tb.Text = Strings.Format(材料成本, "#,##0") : 預估工資總報價_tb.Text = Strings.Format(工資利潤, "#,##0")
        預估材料總報價_tb.Text = Strings.Format(材料利潤, "#,##0") ': 預估利潤_tb.Text = Strings.Format((材料利潤 + 工資利潤) - (材料成本 + 工資成本), "#,##0")
        總成本_tb.Text = Strings.Format(工資成本 + 材料成本, "#,##0") : 總報價_tb.Text = Strings.Format(工資利潤 + 材料利潤, "#,##0")
        If 工資利潤 = 0 Then : 利潤比1_tb.Text = "0 %" : Else
            利潤比1_tb.Text = Strings.Format((1 - ((工資成本) / (工資利潤))) * 100, "#,##0") & " %"
        End If
        If 材料利潤 = 0 Then : 利潤比2_tb.Text = "0 %" : Else
            利潤比2_tb.Text = Strings.Format((1 - ((材料成本) / (材料利潤))) * 100, "#,##0") & " %"
        End If
        If (材料利潤 + 工資利潤) = 0 Then : 利潤比3_tb.Text = "0 %" : Else
            利潤比3_tb.Text = Strings.Format((1 - ((材料成本 + 工資成本) / (材料利潤 + 工資利潤))) * 100, "#,##0") & " %"
        End If
    End Sub
    Private Sub 報價總表_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 報價總表_dgv.MouseUp
        'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If
        If 報價總表_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 報價總表_dgv.SelectedCells.Count > 0 Then
            If 報價總表_dgv.SelectedCells(0).ColumnIndex = 4 Or 報價總表_dgv.SelectedCells(0).ColumnIndex = 5 Or 報價總表_dgv.SelectedCells(0).ColumnIndex = 6 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 報價總表_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 報價總表_dgv.Rows(報價總表_dgv.SelectedCells.Item(i).RowIndex).Cells(報價總表_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(x, "#,##0")
                Else : GCM_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0")
                End If
            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
    Private Sub 報價明細表_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 報價明細表_dgv.MouseUp
        'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If
        If 報價明細表_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 報價明細表_dgv.SelectedCells.Count > 0 Then
            If 報價明細表_dgv.SelectedCells(0).ColumnIndex = 4 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 5 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 6 Or
               報價明細表_dgv.SelectedCells(0).ColumnIndex = 8 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 9 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 10 Or
               報價明細表_dgv.SelectedCells(0).ColumnIndex = 11 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 12 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 13 Or
               報價明細表_dgv.SelectedCells(0).ColumnIndex = 14 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 15 Or 報價明細表_dgv.SelectedCells(0).ColumnIndex = 16 Or
               報價明細表_dgv.SelectedCells(0).ColumnIndex = 17 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 報價明細表_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 報價明細表_dgv.Rows(報價明細表_dgv.SelectedCells.Item(i).RowIndex).Cells(報價明細表_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(x, "#,##0")
                Else : GCM_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0")
                End If
            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
    Private Sub 第1期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellEnter
        If Not IsNumeric(第1期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值") : Else : MsgBox("Field input must be numeric!!") : End If
            第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer
            For i As Integer = 0 To 第1期_dgv.Rows.Count - 1 : nn += 第1期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款1_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第一期的細項比例不可大於" : Else : SS = "The proportion of the details of the first phase cannot be greater than" : End If
                MsgBox(SS & Strings.Format(工程款1_nud.Value, "#,##0.00") & " % !!")
                第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第1期_dgv.Rows.Count - 1
                    第1期_dgv.Rows(i).Cells("金額").Value = 第1期_dgv.Rows(i).Cells("比例").Value * 金額1_und.Value / 工程款1_nud.Value
                Next i
            End If
        End If
    End Sub
    Private Sub 第2期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellEnter
        If Not IsNumeric(第2期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值") : Else : MsgBox("Field input must be numeric!!") : End If
            第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer
            For i As Integer = 0 To 第2期_dgv.Rows.Count - 1 : nn += 第2期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款2_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第二期的細項比例不可大於" : Else : SS = "The proportion of the details of the second  phase cannot be greater than" : End If
                MsgBox(SS & Strings.Format(工程款2_nud.Value, "#,##0.00") & " % !!")
                第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第2期_dgv.Rows.Count - 1
                    第2期_dgv.Rows(i).Cells("金額").Value = 第2期_dgv.Rows(i).Cells("比例").Value * 金額2_und.Value / 工程款2_nud.Value
                Next i
            End If
        End If
    End Sub
    Private Sub 第3期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellEnter
        If Not IsNumeric(第3期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值") : Else : MsgBox("Field input must be numeric!!") : End If
            第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer
            For i As Integer = 0 To 第3期_dgv.Rows.Count - 1 : nn += 第3期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款3_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第三期的細項比例不可大於" : Else : SS = "The proportion of the details of the third phase cannot be greater than" : End If
                MsgBox(SS & Strings.Format(工程款3_nud.Value, "#,##0.00") & " % !!")
                第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第3期_dgv.Rows.Count - 1
                    第3期_dgv.Rows(i).Cells("金額").Value = 第3期_dgv.Rows(i).Cells("比例").Value * 金額3_und.Value / 工程款3_nud.Value
                Next i
            End If
        End If
    End Sub
    Private Sub 第4期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellEnter
        If Not IsNumeric(第4期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值") : Else : MsgBox("Field input must be numeric!!") : End If
            第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer
            For i As Integer = 0 To 第4期_dgv.Rows.Count - 1 : nn += 第4期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款4_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第四期的細項比例不可大於" : Else : SS = "The proportion of the details of the fourth  phase cannot be greater than" : End If
                MsgBox(SS & Strings.Format(工程款4_nud.Value, "#,##0.00") & " % !!")
                第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第4期_dgv.Rows.Count - 1
                    第4期_dgv.Rows(i).Cells("金額").Value = 第4期_dgv.Rows(i).Cells("比例").Value * 金額4_und.Value / 工程款4_nud.Value
                Next i
            End If
        End If
    End Sub
    Private Sub 第5期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellEnter
        If Not IsNumeric(第5期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值") : Else : MsgBox("Field input must be numeric!!") : End If
            第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer
            For i As Integer = 0 To 第5期_dgv.Rows.Count - 1 : nn += 第5期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款5_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第五期的細項比例不可大於" : Else : SS = "The proportion of the details of the fifth phase cannot be greater than" : End If
                MsgBox(SS & Strings.Format(工程款5_nud.Value, "#,##0.00") & " % !!")
                第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第5期_dgv.Rows.Count - 1
                    第5期_dgv.Rows(i).Cells("金額").Value = 第5期_dgv.Rows(i).Cells("比例").Value * 金額5_und.Value / 工程款5_nud.Value
                Next i
            End If
        End If
    End Sub
    Private Sub 第1期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第1期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第2期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第2期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第3期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第3期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第4期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第4期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第5期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第5期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub



    '-----------------建立合約資料功能-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 群組編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 群組編碼_cb.SelectedIndexChanged
        群組碼_tb.Text = 群組編碼_cb.Text : Set_清單1()
    End Sub
    Private Sub 新群組1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 新群組1_cb.SelectedIndexChanged
        PA = 新群組1_cb.Text : SQL_群組碼_語轉_選擇() : If dr.Read Then : 群組編碼_cb.Text = dr("群組碼").ToString : End If : PA = ""
    End Sub
    Private Sub 合約種類_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 合約種類_cb.SelectedIndexChanged
        PA10 = 合約種類_cb.Text : SQL_合約種類英文讀取() : If dr.Read() Then : 合約種類_tb.Text = dr("英") : End If : conn.Close()
    End Sub
    Private Sub 選擇公司_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇公司_cb.SelectedIndexChanged
        If 選擇公司_cb.Text = "G.C.M. Smart Enterprise LTD." Then : 合約編號_cb.Text = "GCM" : Else : 合約編號_cb.Text = "ICS" : End If
        If 選擇公司_cb.Text = "G.C.M. Smart Enterprise LTD." Then : 我司地址_tb.Text = "屏東縣萬丹鄉麟洛鄉中山路382-103號" : Else
            我司地址_tb.Text = "J.Kaliandra 1 no 1E blok F6 Lantai 2 Delta Silicon II Lippo Cikarang ,Desa Cicau ,Kec. Cikarang Pusat, Kab Bekasi"
        End If
    End Sub
    Private Sub 合約編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號_cb.SelectedIndexChanged
        If 合約編號_cb.Text = "GCM" Then : 選擇公司_cb.Text = "G.C.M. Smart Enterprise LTD." : Else : 選擇公司_cb.Text = "PT.Indonesia Cemerlang Sistem" : End If
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_合約清單() : 縮放2_bt.PerformClick()
    End Sub
    Private Sub NUD3_ValueChanged(sender As Object, e As EventArgs) Handles NUD3.ValueChanged
        If CH2.Checked = True Then
            If 稅額顯示_lb.Text = "PPN 0%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 100 * 0
            ElseIf 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 105 * 5
            ElseIf 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 110 * 10
            ElseIf 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 111 * 11
            End If
            NUD1.Value = NUD3.Value - NUD2.Value
            金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value
            金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value
            金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value
            金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
        End If
    End Sub
    Private Sub NUD1_ValueChanged(sender As Object, e As EventArgs) Handles NUD1.ValueChanged
        If CH1.Checked = True Then
            If 稅額顯示_lb.Text = "PPN 0%稅額 = Rp. " Then : NUD2.Value = NUD1.Value / 100 * 0
            ElseIf 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. " Then : NUD2.Value = NUD1.Value / 100 * 5
            ElseIf 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then : NUD2.Value = NUD1.Value / 100 * 10
            ElseIf 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. " Then : NUD2.Value = NUD1.Value / 100 * 11
            End If
            NUD3.Value = NUD1.Value + NUD2.Value
            金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value
            金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value
            金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value
            金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
        End If
    End Sub
    Private Sub CH1_CheckedChanged(sender As Object, e As EventArgs) Handles CH1.Click
        CH1.Checked = True : CH2.Checked = False : NUD1.Enabled = True : NUD3.Enabled = False
    End Sub
    Private Sub CH2_CheckedChanged(sender As Object, e As EventArgs) Handles CH2.Click
        CH1.Checked = False : CH2.Checked = True : NUD1.Enabled = False : NUD3.Enabled = True
    End Sub
    Private Sub 工程款1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款1_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value
        金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
    End Sub
    Private Sub 工程款2_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款2_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value
        金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
    End Sub
    Private Sub 工程款3_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款3_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value
        金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
    End Sub
    Private Sub 工程款4_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款4_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value
        金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
    End Sub
    Private Sub 工程款5_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款5_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value
        金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
    End Sub
    Private Sub 自動讀取_bt_Click(sender As Object, e As EventArgs) Handles 自動讀取_bt.Click
        If 客戶名稱_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇客戶名稱!!!") : Else : MsgBox("Please select the customer name first!!!") : End If : Else
            If 系統語言 = "繁體中文" Then : MsgBox("進入編輯狀態，合約清單已鎖定不可選擇，鎖定狀態在合約存檔後解除!!")
            Else : MsgBox("Enter the editing state, the contract list has been locked and cannot be selected, the locked state will be released after the contract is archived!!") : End If
            合約_dgv.Enabled = False
            PA30 = 合約編號1_tb.Text : SQL_客戶資料讀取() : If dr.Read() Then : 合約編號1_tb.Text = dr("簡稱") : End If : conn.Close()
            If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Then
                If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成合約編號!!!") : Else : MsgBox("Insufficient information to generate contract number!!") : End If
            Else
                合約編號2_tb.Enabled = False : 合約編號3_tb.Enabled = False
                PA = Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 3, 2) & Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) & Strings.Right(Strings.Format(Today(), "yyyy/MM/dd"), 2)
                SQL_合約流水號_最後一筆資料()
                If dr.Read() Then
                    If Val(Strings.Right(dr("合約編號").ToString, 2)) > 9 Then : EDR = Strings.Right(dr("合約編號").ToString, 2) : Else : EDR = Strings.Right(dr("合約編號").ToString, 1) : End If
                End If : conn.Close() : EDR += 1 : 合約編號2_tb.Text = PA : 合約編號3_tb.Text = EDR : 預設資料1()
            End If
        End If
    End Sub
    Private Sub 手動輸入_bt_Click(sender As Object, e As EventArgs) Handles 手動輸入_bt.Click
        If 系統語言 = "繁體中文" Then : MsgBox("進入編輯狀態，合約清單已鎖定不可選擇，鎖定狀態在合約存檔後解除!!")
        Else : MsgBox("Enter the editing state, the contract list has been locked and cannot be selected, the locked state will be released after the contract is archived!!") : End If
        合約_dgv.Enabled = False : 合約編號2_tb.Enabled = True : 合約編號3_tb.Enabled = True : 預設資料1()
    End Sub
    Private Sub 刪除合約_bt_Click(sender As Object, e As EventArgs) Handles 刪除合約_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "是否要刪除這筆資料?" : Else : SS = "Do you want to delete this data?" : End If
        Dim aa As MsgBoxResult = MsgBox("SS", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            Dim SS1 As String
            If 系統語言 = "繁體中文" Then : SS1 = "確定刪除資料請輸入 [YES] !" : Else : SS1 = "Confirm to delete data, please enter[YES] !" : End If
            Dim SSA As String = InputBox(SS1)
            If SSA = "YES" Then
                PA = 合約編號_tb.Text
                SQL_合約刪除() : SQL_合約本文刪除_依合約() : SQL_合約明細刪除_全部() : SQL_合約附錄刪除_全部() : SQL_合約總表刪除_全部() : SQL_合約報價明細刪除_全部()
                SQL_合約報價係數刪除_全部() : SQL_合約試算分表刪除() : SQL_合約試算控制表刪除() : SQL_合約試算明細表刪除() : SQL_合約請款刪除_全部()
                If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Delete complete!!") : End If
                Set_合約報價總表() : Set_合約報價係數() : Set_合約報價明細表() : Set_合約清單()
            End If
        End If
    End Sub
    Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click
        Dim 合約編號條件 As Boolean = True
        If 合約編號_cb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇我方公司!!") : Else : MsgBox("Did not choose our company!!") : End If : 合約編號條件 = False : End If
        If 合約編號1_tb.Text = "" Then
                If 系統語言 = "繁體中文" Then : MsgBox("沒有甲方公司英文縮寫!!") : Else : MsgBox("There is no English abbreviation of Party A company!!") : End If : 合約編號條件 = False : Else
                Dim d As Int32
            For index = 0 To 合約編號1_tb.Text.Length - 1
                d = Asc(合約編號1_tb.Text(index))
                Dim 可能不行 As Boolean = False
                If (d < 65 Or d > 90) Then : 可能不行 = True : End If   'c變數若在65~90是大寫的英文字母
                If 可能不行 = True Then
                    If (d < 97 Or d > 122) Then : 可能不行 = True : Else : 可能不行 = False : End If       'c變數若在97~122是小寫的英文字母
                    If 可能不行 = True Then   '然後查表， c變數若在48~57， 表示它是數字，
                        If (d < 48 Or d > 57) Then
                            If 系統語言 = "繁體中文" Then : MsgBox("甲方公司簡稱需要英文或是數字，不可以是中文或其他符號!!")
                            Else : MsgBox("Party A's company abbreviation needs to be in English or numbers, not Chinese or other symbols!!") : End If
                            合約編號條件 = False : Exit For : End If
                    End If
                End If
            Next
        End If
        If 合約編號2_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有立約日期!!") : Else : MsgBox("There is no covenant date!!") : End If : 合約編號條件 = False : End If
        Dim c As Int32   '然後查表， c變數若在48~57， 表示它是數字，
        For index = 0 To 合約編號2_tb.Text.Length - 1
            c = Asc(合約編號2_tb.Text(index))
            If c < 48 Or c > 57 Then
                If 系統語言 = "繁體中文" Then : MsgBox("立約日期只能是數字!!") : Else : MsgBox("Covenant date can only be a number!!") : End If : 合約編號條件 = False : Exit For : Else
                If Len(合約編號2_tb.Text) <> 6 Then
                    If 系統語言 = "繁體中文" Then : MsgBox("立約日期的格式為YYMMDD (年兩位，月兩位，日兩位)，數字規格不符!!")
                    Else : MsgBox("The format of the contract date is YYMMDD (two digits for the year, two digits for the month, and two digits for the day), and the numerical specifications do not match!!") : End If
                    合約編號條件 = False : Exit For : End If
            End If
        Next
        If 合約編號3_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有合約序號!!") : Else : MsgBox("No contract number!!") : End If : 合約編號條件 = False
        ElseIf IsNumeric(合約編號3_tb.Text) = False Then
            If 系統語言 = "繁體中文" Then : MsgBox("序號只能是數字!!") : Else : MsgBox("Serial numbers can only be numbers!!") : End If : 合約編號條件 = False
        End If

        If 合約編號條件 = False Then : Else
            If 工程款6_nud.Value <> 100 Then
                If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Project appraisal is not equal to 100%!!") : End If
            Else
                Dim AN1, AN2, AN3, AN4, AN5 As Integer
                Dim STST1 As String = "" : Dim STST2 As String = "" : Dim STST3 As String = "" : Dim STST4 As String = "" : Dim STST5 As String = ""
                Dim SS1, SS2, SS3, SS4, SS5 As String
                If 系統語言 = "繁體中文" Then
                    SS1 = "第一期工程款細項不吻合" : SS2 = "第二期工程款細項不吻合" : SS3 = "第三期工程款細項不吻合" : SS4 = "第四期工程款細項不吻合" : SS5 = "第五期工程款細項不吻合"
                Else
                    SS1 = "The details of the first phase of the project do not match" : SS2 = "The details of the second phase of the project do not match" : SS3 = "The details of the third phase of the project do not match" : SS4 = "The details of the fourth phase of the project do not match"
                    SS5 = "The details of the fifth phase of the project do not match"
                End If
                For I As Integer = 0 To 第1期_dgv.Rows.Count - 1 : AN1 += 第1期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第2期_dgv.Rows.Count - 1 : AN2 += 第2期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第3期_dgv.Rows.Count - 1 : AN3 += 第3期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第4期_dgv.Rows.Count - 1 : AN4 += 第4期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第5期_dgv.Rows.Count - 1 : AN5 += 第5期_dgv.Rows(I).Cells("比例").Value : Next
                If AN1 <> 工程款1_nud.Value And 第1期_dgv.Rows.Count > 0 Then : STST1 = "SS1" : End If
                If AN2 <> 工程款2_nud.Value And 第2期_dgv.Rows.Count > 0 Then : STST2 = "SS2" : End If
                If AN3 <> 工程款3_nud.Value And 第3期_dgv.Rows.Count > 0 Then : STST3 = "SS3" : End If
                If AN4 <> 工程款4_nud.Value And 第4期_dgv.Rows.Count > 0 Then : STST4 = "SS4" : End If
                If AN5 <> 工程款5_nud.Value And 第5期_dgv.Rows.Count > 0 Then : STST5 = "SS5" : End If
                If STST1 <> "" Or STST2 <> "" Or STST3 <> "" Or STST4 <> "" Or STST5 <> "" Then
                    MsgBox(STST1 & vbCrLf &
                           STST2 & vbCrLf &
                           STST3 & vbCrLf &
                           STST4 & vbCrLf &
                           STST5)
                Else
                    PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約編號_tb.Text = PA
                    SQL_合約查詢()
                    If dr.Read() Then
                        Dim SS As String
                        If 系統語言 = "繁體中文" Then : SS = "系統內已有相同單號，請問是否存檔(會覆蓋舊資料)?"
                        Else : SS = "The same tracking number already exists in the system, do you want to archive it (the old data will be overwritten)?" : End If
                        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) : If aa = MsgBoxResult.Ok Then : 合約存檔() : End If
                    Else
                        合約編號_tb.Text = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
                        報價單合約編號_tb.Text = 合約編號_tb.Text : 報價單客戶名稱_cb.Text = 客戶名稱_tb.Text
                        報價單立約日期_dtp.Value = 立約日期_dtp.Value : 報價工程名稱_中_tb.Text = 工程名稱_中_tb.Text
                        報價工程名稱_英_tb.Text = 工程名稱_英_tb.Text
                        合約存檔()
                    End If

                    If 複製報價 = False Then
                        PA = 合約編號_tb.Text : 合約_lb.Text = "合約"
                        Set_合約報價總表() : Set_合約報價係數() : Set_合約報價明細表()
                        PA = 合約編號_tb.Text
                        If 報價明細表_dgv.Rows.Count = 0 Then : For i As Integer = 1 To 3 : 新增資料2() : Next : End If : Set_合約報價明細表()
                        '------比對總表無資料時開基本條例-------------------------------------------------
                        總表範例_bt.PerformClick() : 甲方條件下拉清單讀取() : 合約編號1_cb.Text = 條件選擇
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 新增資料2()
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            資料數 = 報價明細表_dgv.Rows.Count * 2 : 進度條視窗.Show() : 報價明細表存檔()
            PA = 合約編號_tb.Text : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = "" : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = ""
            PA14 = "" : PA15 = "" : PA16 = "" : BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False
            BL8 = False : BL9 = True : 明細表新增資料() : MyModule1.計算顯示3()
        End If
    End Sub
    Private Sub 合約存檔()
        '-----判斷是否新增客戶資料-----------------------
        PA30 = 合約編號1_tb.Text : Dim 供應商編號 As String : SQL_客戶資料讀取()
        If dr.Read() Then
            If 負責人_A_cb.Text <> dr("負責人").ToString And 負責人_A_cb.Text <> "" And dr("負責人").ToString <> "" Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "合約上的負責人與系統中的資料不吻合，是否要更新系統中的負責人資料?"
                Else : SS = "The person in charge on the contract does not match the data in the system. Do you want to update the data of the person in charge in the system?" : End If
                Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
                If aa = MsgBoxResult.Ok Then : PA43 = 負責人_A_cb.Text : PA42 = 客戶名稱_tb.Text : conn.Close() : SQL_客戶資料表_修改負責人() : End If
            ElseIf 負責人_A_cb.Text <> "" And dr("負責人").ToString = "" Then
                PA43 = 負責人_A_cb.Text : PA42 = 客戶名稱_tb.Text : conn.Close() : SQL_客戶資料表_修改負責人()
            End If
        Else
            conn.Close() : SQL_客戶資料表_最後一筆資料()
            If dr.Read() Then : 供應商編號 = dr("流水號").ToString : Else : 供應商編號 = "CL000" : End If
            conn.Close() : Dim NUM1 As Integer
            NUM1 = Double.Parse(Strings.Right(供應商編號, 3)) + 1
            If NUM1 < 10 Then : 供應商編號 = "CL" & "00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號 = "CL" & "0" & NUM1
            ElseIf NUM1 > 99 Then : 供應商編號 = "CL" & NUM1 : End If
            PA29 = 供應商編號 : PA41 = 合約編號1_tb.Text : PA40 = 客戶名稱_tb.Text : PA39 = 客戶地址_tb.Text : PA38 = 負責人_A_cb.Text
            SQL_合約系統中新增客戶資料() : conn.Close()
        End If : conn.Close()
        PA37 = 合約種類_cb.Text : PA36 = 合約種類_tb.Text
        SQL_合約種類查詢() : If dr.Read() Then : Else : SQL_合約種類新增() : conn.Close() : End If : conn.Close()
        PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
        PA36 = 客戶名稱_tb.Text : PA35 = 負責人_A_cb.Text : PA34 = 工程地點_tb.Text : PA33 = 客戶地址_tb.Text : PA32 = 工程名稱_中_tb.Text : PA31 = 工程名稱_英_tb.Text
        PA30 = 選擇公司_cb.Text : PA29 = 負責人_B_cb.Text : PA28 = 我司地址_tb.Text : PA27 = NUD3.Value : PA26 = 工程款1_nud.Value : PA25 = 工程款2_nud.Value
        PA24 = 工程款3_nud.Value : PA23 = 工程款4_nud.Value : PA22 = 工程款5_nud.Value : PA21 = 工期_nud.Value : PA20 = 逾期_bt.Text : PA19 = 最高扣款_bt.Text
        PA18 = 逾期_英_bt.Text : PA17 = 最高扣款_英_bt.Text : PA16 = 減價_bt.Text : PA15 = 廠區_中文_tb.Text : PA14 = 頁數_bt.Text : PA12 = 合約種類_cb.Text
        PA13 = Strings.Format(立約日期_dtp.Value, "yyyy/MM/dd") : PA44 = 合約編號2_tb.Text : PA45 = 合約編號3_tb.Text : PA46 = 合約編號1_tb.Text : PA47 = 工程期_ch.Text
        BL1 = 合約停止_ch.Checked : PA10 = 折讓比例_nud.Value : PA9 = 歸零位數_nud.Value : BL2 = 稅前歸零_ch.Checked : BL3 = 稅後歸零_ch.Checked
        If 美金_ch.Checked = True Then : PA11 = "美金" : ElseIf 台幣_ch.Checked = True Then : PA11 = "台幣"
        ElseIf 人民幣_ch.Checked = True Then : PA11 = "人民幣" : ElseIf 印尼盾_ch.Checked = True Then : PA11 = "印尼盾" : End If
        匯率() : PA48 = 匯率1
        SQL_合約查詢() : If dr.Read() Then : SQL_合約修改1() : conn.Close() : Else : SQL_合約新增() : conn.Close() : End If
        合約明細存檔() : PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
        If 系統語言 = "繁體中文" Then : MsgBox("存檔完成，合約清單鎖定解除!!") : Else : MsgBox("The archive is complete, the contract list lock is released!!") : End If
        Set_合約清單() : 合約_dgv.Enabled = True
    End Sub
    Private Sub 合約明細存檔()
        For i As Integer = 0 To 第1期_dgv.Rows.Count - 1
            PA1 = "1" : PA2 = 第1期_dgv.Rows(i).Cells("細項").Value : PA3 = 第1期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第1期_dgv.Rows(i).Cells("比例").Value : NU2 = 第1期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第2期_dgv.Rows.Count - 1
            PA1 = "2" : PA2 = 第2期_dgv.Rows(i).Cells("細項").Value : PA3 = 第2期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第2期_dgv.Rows(i).Cells("比例").Value : NU2 = 第2期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第3期_dgv.Rows.Count - 1
            PA1 = "3" : PA2 = 第3期_dgv.Rows(i).Cells("細項").Value : PA3 = 第3期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第3期_dgv.Rows(i).Cells("比例").Value : NU2 = 第3期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第4期_dgv.Rows.Count - 1
            PA1 = "4" : PA2 = 第4期_dgv.Rows(i).Cells("細項").Value : PA3 = 第4期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第4期_dgv.Rows(i).Cells("比例").Value : NU2 = 第4期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第5期_dgv.Rows.Count - 1
            PA1 = "5" : PA2 = 第5期_dgv.Rows(i).Cells("細項").Value : PA3 = 第5期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第5期_dgv.Rows(i).Cells("比例").Value : NU2 = 第5期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
    End Sub
    Private Sub 新增資料_bt_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click
        If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成明細!!!") : Else : MsgBox("Not enough information to generate details!!!") : End If
            If 工程款6_nud.Value <> 100 Then
                If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Project appraisal is not equal to 100%!!") : End If
                PA = 合約編號_tb.Text : 合約明細存檔()
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "合約工期款項細分不可大於10筆!!!" : Else : SS = "The subdivision of the contract duration payment cannot be more than 10!!!" : End If
            If TabControl1.SelectedIndex = 0 Then
                    If 第1期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "1" : PA2 = 第1期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
            ElseIf TabControl1.SelectedIndex = 1 Then
                    If 第2期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "2" : PA2 = 第2期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
            ElseIf TabControl1.SelectedIndex = 2 Then
                    If 第3期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "3" : PA2 = 第3期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
            ElseIf TabControl1.SelectedIndex = 3 Then
                    If 第4期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "4" : PA2 = 第4期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
            ElseIf TabControl1.SelectedIndex = 4 Then
                    If 第5期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "5" : PA2 = 第5期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
                End If
                PA = 合約編號_tb.Text
                PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()
                If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Added complete!!") : End If
        End If
        End If
    End Sub
    Private Sub 刪除資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除資料_bt.Click
        If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Or 明細選項_bt.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法刪除明細!!") : Else : MsgBox("Not enough information to delete details!!") : End If : Else
            If 工程款6_nud.Value <> 100 Then
                If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Project appraisal is not equal to 100%!!") : End If : Else
                PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約明細存檔()
                If TabControl1.SelectedIndex = 0 Then : PA1 = "1" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 1 Then : PA1 = "2" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 2 Then : PA1 = "3" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 3 Then : PA1 = "4" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 4 Then : PA1 = "5" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                End If
                PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
                PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()
                If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Delete complete!!") : End If
            End If
        End If
    End Sub
    Private Sub 合約編號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb.TextChanged
        PA30 = 合約編號1_tb.Text : SQL_客戶資料讀取()
        If dr.Read() Then : 客戶名稱_tb.Text = dr("客戶名稱") : 負責人_A_cb.Text = dr("負責人") : 客戶地址_tb.Text = dr("地址") : End If : conn.Close()
    End Sub
    Private Sub 美金_ch_Click(sender As Object, e As EventArgs) Handles 美金_ch.Click
        美金_ch.Checked = True : 台幣_ch.Checked = False : 人民幣_ch.Checked = False : 印尼盾_ch.Checked = False
        If 美金_ch.Checked = True Then : 幣別 = " (USD)" : ElseIf 台幣_ch.Checked = True Then : 幣別 = " (TWD)"
        ElseIf 人民幣_ch.Checked = True Then : 幣別 = " (RMB)" : ElseIf 印尼盾_ch.Checked = True Then : 幣別 = " (RP)" : End If
        Set_合約報價明細表() : Set_合約報價總表()
    End Sub
    Private Sub 台幣_ch_Click(sender As Object, e As EventArgs) Handles 台幣_ch.Click
        美金_ch.Checked = False : 台幣_ch.Checked = True : 人民幣_ch.Checked = False : 印尼盾_ch.Checked = False
        If 美金_ch.Checked = True Then : 幣別 = " (USD)" : ElseIf 台幣_ch.Checked = True Then : 幣別 = " (TWD)"
        ElseIf 人民幣_ch.Checked = True Then : 幣別 = " (RMB)" : ElseIf 印尼盾_ch.Checked = True Then : 幣別 = " (RP)" : End If
        Set_合約報價明細表() : Set_合約報價總表()
    End Sub
    Private Sub 人民幣_ch_Click(sender As Object, e As EventArgs) Handles 人民幣_ch.Click
        美金_ch.Checked = False : 台幣_ch.Checked = False : 人民幣_ch.Checked = True : 印尼盾_ch.Checked = False
        If 美金_ch.Checked = True Then : 幣別 = " (USD)" : ElseIf 台幣_ch.Checked = True Then : 幣別 = " (TWD)"
        ElseIf 人民幣_ch.Checked = True Then : 幣別 = " (RMB)" : ElseIf 印尼盾_ch.Checked = True Then : 幣別 = " (RP)" : End If
        Set_合約報價明細表() : Set_合約報價總表()
    End Sub
    Private Sub 印尼盾_ch_Click(sender As Object, e As EventArgs) Handles 印尼盾_ch.Click
        美金_ch.Checked = False : 台幣_ch.Checked = False : 人民幣_ch.Checked = False : 印尼盾_ch.Checked = True
        If 美金_ch.Checked = True Then : 幣別 = " (USD)" : ElseIf 台幣_ch.Checked = True Then : 幣別 = " (TWD)"
        ElseIf 人民幣_ch.Checked = True Then : 幣別 = " (RMB)" : ElseIf 印尼盾_ch.Checked = True Then : 幣別 = " (RP)" : End If
        Set_合約報價明細表() : Set_合約報價總表()
    End Sub


    '-----------------合約報價總表-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 合約報價總表_最後一筆資料()
        SQL_合約報價總表_最後一筆資料()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "GT" & "00000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "GT" & "0000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "GT" & "000000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "GT" & "00000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "GT" & "0000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "GT" & "000" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "GT" & "00" & EDR : ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "GT" & "0" & EDR
        ElseIf EDR > 99999999 Then : ESTR = "GT" & EDR : End If : PA9 = ESTR
    End Sub
    Private Sub 總表範例新增()
        合約報價總表_最後一筆資料() : PA10 = ""
        SQL_合約報價總表_最後一筆排序()
        If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "00" : End If : conn.Close() : NUM1 = Double.Parse(PA1) + 1
        If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
        SQL_合約報價總表_新增資料()
    End Sub
    Private Sub 總表範例_bt_Click(sender As Object, e As EventArgs) Handles 總表範例_bt.Click
        If 報價總表_dgv.Rows.Count = 0 Then
            For I As Integer = 1 To 5
                PA = 合約編號_tb.Text
                If I = 1 Then : PA2 = "" : PA3 = ""
                ElseIf I = 2 Then : PA2 = "^" : PA3 = "管理費 7%" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                ElseIf I = 3 Then : PA2 = "#" : PA3 = "折讓 Discount" : PA4 = "" : PA5 = "1" : PA6 = "0" : PA7 = "0" : PA8 = ""
                ElseIf I = 4 Then : PA2 = "*" : PA3 = "稅金 11% Tax" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                ElseIf I = 5 Then : PA2 = "@" : PA3 = "總計 Grand Total" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                End If : 總表範例新增()
            Next
            Set_合約報價總表()
        Else
            Dim 新開1 As Boolean = True : Dim 新開2 As Boolean = True : Dim 新開3 As Boolean = True : Dim 新開4 As Boolean = True
            For I As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                If 報價總表_dgv.Rows(I).Cells("ITEM").Value.ToString = "^" And Strings.Left(報價總表_dgv.Rows(I).Cells("DESCRIPTION").Value.ToString, 2) = "管理" Then
                    新開1 = False : Exit For : End If : Next
            For I As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                If 報價總表_dgv.Rows(I).Cells("ITEM").Value.ToString = "*" And Strings.Left(報價總表_dgv.Rows(I).Cells("DESCRIPTION").Value.ToString, 2) = "稅金" Then
                    新開2 = False : Exit For : End If : Next
            For I As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                If 報價總表_dgv.Rows(I).Cells("ITEM").Value.ToString = "@" And Strings.Left(報價總表_dgv.Rows(I).Cells("DESCRIPTION").Value.ToString, 2) = "總計" Then
                    新開3 = False : Exit For : End If : Next
            For I As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                If 報價總表_dgv.Rows(I).Cells("ITEM").Value.ToString = "#" And Strings.Left(報價總表_dgv.Rows(I).Cells("DESCRIPTION").Value.ToString, 2) = "折讓" Then
                    新開4 = False : Exit For : End If : Next
            If 新開1 = True Or 新開2 = True Or 新開3 = True Then : PA = 合約編號_tb.Text : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                總表範例新增() : End If
            If 新開1 = True Then : PA = 合約編號_tb.Text : PA2 = "^" : PA3 = "管理費 7%" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                總表範例新增() : End If
            If 新開4 = True Then : PA = 合約編號_tb.Text : PA2 = "#" : PA3 = "折讓 Discount" : PA4 = "" : PA5 = "1" : PA6 = "0" : PA7 = "0" : PA8 = ""
                總表範例新增() : End If
            If 新開2 = True Then : PA = 合約編號_tb.Text : PA2 = "*" : PA3 = "稅金 11% Tax" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                總表範例新增() : End If
            If 新開3 = True Then : PA = 合約編號_tb.Text : PA2 = "@" : PA3 = "總計 Grand Total" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                總表範例新增() : End If : Set_合約報價總表()
        End If
    End Sub
    Private Sub 報價總表存檔()
        For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
            PA1 = 報價總表_dgv.Rows(i).Cells("排序").Value.ToString : PA2 = 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString : PA3 = 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString
            PA4 = 報價總表_dgv.Rows(i).Cells("UNIT").Value.ToString : PA5 = 報價總表_dgv.Rows(i).Cells("QTY").Value.ToString : PA6 = 報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString
            PA7 = 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString : PA8 = 報價總表_dgv.Rows(i).Cells("REMARKS").Value.ToString : PA9 = 報價總表_dgv.Rows(i).Cells("流水號").Value.ToString
            PA10 = 報價總表_dgv.Rows(i).Cells("明細連動").Value.ToString
            SQL_合約報價總表_存檔()
        Next
        SQL_合約修改_報價說明()
    End Sub
    Private Sub 新增資料1_bt_Click(sender As Object, e As EventArgs) Handles 新增資料1_bt.Click
        If 合約編號_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            Dim SS As String
            If 系統語言 = "繁體中文" Then : SS = "請輸入要新增幾行空白欄位!! (請輸入數字)"
            Else : SS = "Please enter a few blank fields to add!! (Please enter a number)" : End If
            PA20 = InputBox(SS)
            If IsNumeric(PA20) = False Then
                If 系統語言 = "繁體中文" Then : MsgBox("你輸入的不是數字!!") : Else : MsgBox("You are not entering numbers!!") : End If : Else
                報價總表存檔()
                For ia As Integer = 1 To PA20
                    PA = 合約編號_tb.Text : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = ""
                    合約報價總表_最後一筆資料()

                    PA10 = ""
                    If 選擇項_tb.Text = "" Then
                        SQL_合約報價總表_最後一筆排序()
                        If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "00" : End If : conn.Close() : NUM1 = Double.Parse(PA1) + 1
                        If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
                    Else
                        PA1 = 選擇項3_tb.Text & "-1"
                    End If
                    SQL_合約報價總表_新增資料()
                Next
                Set_合約報價總表()
                For I As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                    If I < 10 Then : 報價總表_dgv.Rows(I).Cells("排序").Value = "00" & I
                    ElseIf I > 9 And I < 100 Then : 報價總表_dgv.Rows(I).Cells("排序").Value = "0" & I
                    ElseIf I > 99 Then : 報價總表_dgv.Rows(I).Cells("排序").Value = I
                    End If
                Next : 報價總表存檔()
            End If
        End If
    End Sub
    Private Sub 報價總表存檔按鈕()
        If 報價總表_dgv.Rows.Count = 0 Then : Else
            報價總表存檔() : PA37 = 合約種類_cb.Text : PA36 = 合約種類_tb.Text : PA = 合約編號_tb.Text
            PA36 = 客戶名稱_tb.Text : PA35 = 負責人_A_cb.Text : PA34 = 工程地點_tb.Text : PA33 = 客戶地址_tb.Text : PA32 = 工程名稱_中_tb.Text : PA31 = 工程名稱_英_tb.Text
            PA30 = 選擇公司_cb.Text : PA29 = 負責人_B_cb.Text : PA28 = 我司地址_tb.Text : PA27 = NUD3.Value : PA26 = 工程款1_nud.Value : PA25 = 工程款2_nud.Value
            PA24 = 工程款3_nud.Value : PA23 = 工程款4_nud.Value : PA22 = 工程款5_nud.Value : PA21 = 工期_nud.Value : PA20 = 逾期_bt.Text : PA19 = 最高扣款_bt.Text
            PA18 = 逾期_英_bt.Text : PA17 = 最高扣款_英_bt.Text : PA16 = 減價_bt.Text : PA15 = 廠區_中文_tb.Text : PA14 = 頁數_bt.Text : PA12 = 合約種類_cb.Text
            PA13 = Strings.Format(立約日期_dtp.Value, "yyyy/MM/dd") : PA44 = 合約編號2_tb.Text : PA45 = 合約編號3_tb.Text : PA46 = 合約編號1_tb.Text : PA47 = 工程期_ch.Text
            BL1 = 合約停止_ch.Checked : PA10 = 折讓比例_nud.Value : PA9 = 歸零位數_nud.Value : BL2 = 稅前歸零_ch.Checked : BL3 = 稅後歸零_ch.Checked
            If 美金_ch.Checked = True Then : PA11 = "美金" : ElseIf 台幣_ch.Checked = True Then : PA11 = "台幣"
            ElseIf 人民幣_ch.Checked = True Then : PA11 = "人民幣" : ElseIf 印尼盾_ch.Checked = True Then : PA11 = "印尼盾" : End If
            匯率() : PA48 = 匯率1 : SQL_合約修改1() : Set_合約報價總表() : Set_合約清單()
        End If
    End Sub
    Private Sub 報價總表存檔_bt_Click(sender As Object, e As EventArgs) Handles 報價總表存檔_bt.Click
        If 報價總表_dgv.Rows.Count = 0 Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有可以存檔的資料!!") : Else : MsgBox("No data to archive!!") : End If : Else
            資料數 = 報價明細表_dgv.Rows.Count : 進度條視窗.Show()
            報價總表存檔按鈕() : 報價明細表存檔() : Set_合約報價明細表() : 預估利潤存檔() : MyModule1.計算顯示3()
            If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Archive complete!!") : End If
        End If
    End Sub
    Private Sub 總表選擇刪除_bt_Click(sender As Object, e As EventArgs) Handles 總表選擇刪除_bt.Click
        If 總表流水_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("請先選擇要刪除的資料是哪一筆!!") : Else : MsgBox("Please select which data to delete first!!") : End If
        Else : 報價總表存檔() : PA9 = 總表流水_tb.Text : SQL_合約報價總表_刪除資料() : Set_合約報價總表() : End If
    End Sub
    Private Sub 排序1_bt_Click(sender As Object, e As EventArgs) Handles 排序1_bt.Click
        If 報價總表_dgv.Rows.Count > 0 Then
            If 報價總表_dgv.Columns(0).Visible = False Then : 報價總表_dgv.Columns(0).Visible = True : Else : 報價總表_dgv.Columns(0).Visible = False : End If
        End If
    End Sub
    Private Sub 稅前歸零_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 稅前歸零_ch.Click
        If 稅前歸零_ch.Checked = False And 稅後歸零_ch.Checked = False Then : 稅前歸零_ch.Checked = False : 稅後歸零_ch.Checked = False
        ElseIf 稅前歸零_ch.Checked = True And 稅後歸零_ch.Checked = False Then : 稅前歸零_ch.Checked = True : 稅後歸零_ch.Checked = False
        ElseIf 稅前歸零_ch.Checked = True And 稅後歸零_ch.Checked = True Then : 稅前歸零_ch.Checked = True : 稅後歸零_ch.Checked = True : End If
    End Sub
    Private Sub 稅後歸零_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 稅後歸零_ch.Click
        If 稅前歸零_ch.Checked = False And 稅後歸零_ch.Checked = False Then : 稅前歸零_ch.Checked = False : 稅後歸零_ch.Checked = False
        ElseIf 稅前歸零_ch.Checked = True And 稅後歸零_ch.Checked = False Then : 稅前歸零_ch.Checked = False : 稅後歸零_ch.Checked = True
        ElseIf 稅前歸零_ch.Checked = True And 稅後歸零_ch.Checked = True Then : 稅前歸零_ch.Checked = False : 稅後歸零_ch.Checked = True : End If
    End Sub
    Private Sub 折價計算_bt_Click(sender As Object, e As EventArgs) Handles 折價計算_bt.Click
        If 歸零位數_nud.Value >= Len(CLng(未折價前_tb.Text)) - 1 Then
            If 系統語言 = "繁體中文" Then : MsgBox("歸零位數太大，報價會出錯!!") : Else : MsgBox("The number of zeroing digits is too large, and the quotation will be wrong!!") : End If
        Else
            Dim DD, 歸零前, 歸零後 As Long
            '-------------------------------折讓計算--------------------------------------------------------------------------------------------------------------
            If 折讓比例_nud.Value > 0 Then
                DD = CLng(未折價前_tb.Text) / 100 * 折讓比例_nud.Value * -1
                For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                    If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "折讓 Discount" Then
                        報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value = DD : Exit For
                    End If
                Next
            End If : 報價總表_dgv_自動計算()
            '---------------------------------------------歸零位數_nud------------------------------------------------------------------------------------------------
            If 歸零位數_nud.Value > 0 Then
                If 稅前歸零_ch.Checked = True Then
                    歸零數_tb.Text = Strings.Right(CLng(報價小計_tb.Text), 歸零位數_nud.Value)
                    For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                        If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "折讓 Discount" Then
                            報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value = DD - CLng(歸零數_tb.Text) : Exit For
                        End If
                    Next
                ElseIf 稅後歸零_ch.Checked = True Then
                    For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                        If 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString = "@" Then
                            歸零前 = CLng(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString) : Exit For
                        End If
                    Next
                    歸零數_tb.Text = Strings.Right(歸零前, 歸零位數_nud.Value) : 歸零後 = 歸零前 - CLng(歸零數_tb.Text)
                    If 稅額顯示_lb.Text = "PPN 0%稅額 = Rp. " Then : DD = CLng(報價小計_tb.Text) - (歸零後)
                    ElseIf 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. " Then : DD = CLng(報價小計_tb.Text) - (歸零後 / 105 * 100)
                    ElseIf 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then : DD = CLng(報價小計_tb.Text) - (歸零後 / 110 * 100)
                    ElseIf 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. " Then : DD = CLng(報價小計_tb.Text) - (歸零後 / 111 * 100) : End If
                    For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                        If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "折讓 Discount" Then
                            報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value = CLng(報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString) - DD : Exit For
                        End If
                    Next
                End If
            End If : 報價總表_dgv_自動計算()
        End If
    End Sub


    '-----------------合約報價總表編輯功能-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 總表編輯()
        If 視窗2_pl.Visible = False Then
            視窗2_pl.Location = New System.Drawing.Point(123, 58) : 視窗2_pl.Visible = True : 視窗2_pl.Top = True : 視窗2_pl.BringToFront()
            目前選擇 = "讀取資料" : 座標_lb.Text = 目前選擇
            X_3_tb.Text = "" : Y_3_tb.Text = "" : NUD_01.Value = 0 : NUD_02.Value = 0 : NUD_03.Value = 0
            中文大寫1_ch.Checked = True : 中文小寫1_ch.Checked = False : 數字1_ch.Checked = False
            ITEM1_cb.Items.Clear() : ITEM1_cb.Items.Add("") : ITEM1_cb.Items.Add("壹") : ITEM1_cb.Items.Add("貳") : ITEM1_cb.Items.Add("參") : ITEM1_cb.Items.Add("肆")
            ITEM1_cb.Items.Add("伍") : ITEM1_cb.Items.Add("陸") : ITEM1_cb.Items.Add("柒") : ITEM1_cb.Items.Add("捌") : ITEM1_cb.Items.Add("玖") : ITEM1_cb.Items.Add("拾")
            ITEM1_cb.Items.Add("拾壹") : ITEM1_cb.Items.Add("拾貳") : ITEM1_cb.Items.Add("拾參") : ITEM1_cb.Items.Add("拾肆") : ITEM1_cb.Items.Add("拾伍") : ITEM1_cb.Items.Add("拾陸")
            ITEM1_cb.Items.Add("拾柒") : ITEM1_cb.Items.Add("拾捌") : ITEM1_cb.Items.Add("拾玖") : ITEM1_cb.Items.Add("貳拾")
            視窗2_pl.BringToFront()
        Else : 視窗2_pl.Visible = False
        End If
    End Sub
    Private Sub 中文大寫1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中文大寫1_ch.Click
        中文大寫1_ch.Checked = True : 中文小寫1_ch.Checked = False : 數字1_ch.Checked = False
        ITEM1_cb.Items.Clear() : ITEM1_cb.Items.Add("") : ITEM1_cb.Items.Add("壹") : ITEM1_cb.Items.Add("貳") : ITEM1_cb.Items.Add("參") : ITEM1_cb.Items.Add("肆")
        ITEM1_cb.Items.Add("伍") : ITEM1_cb.Items.Add("陸") : ITEM1_cb.Items.Add("柒") : ITEM1_cb.Items.Add("捌") : ITEM1_cb.Items.Add("玖") : ITEM1_cb.Items.Add("拾")
        ITEM1_cb.Items.Add("拾壹") : ITEM1_cb.Items.Add("拾貳") : ITEM1_cb.Items.Add("拾參") : ITEM1_cb.Items.Add("拾肆") : ITEM1_cb.Items.Add("拾伍") : ITEM1_cb.Items.Add("拾陸")
        ITEM1_cb.Items.Add("拾柒") : ITEM1_cb.Items.Add("拾捌") : ITEM1_cb.Items.Add("拾玖") : ITEM1_cb.Items.Add("貳拾")
    End Sub
    Private Sub 中文小寫1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中文小寫1_ch.Click
        中文大寫1_ch.Checked = False : 中文小寫1_ch.Checked = True : 數字1_ch.Checked = False
        ITEM1_cb.Items.Clear() : ITEM1_cb.Items.Add("") : ITEM1_cb.Items.Add("一") : ITEM1_cb.Items.Add("二") : ITEM1_cb.Items.Add("三") : ITEM1_cb.Items.Add("四")
        ITEM1_cb.Items.Add("五") : ITEM1_cb.Items.Add("六") : ITEM1_cb.Items.Add("七") : ITEM1_cb.Items.Add("八") : ITEM1_cb.Items.Add("九") : ITEM1_cb.Items.Add("十")
        ITEM1_cb.Items.Add("十一") : ITEM1_cb.Items.Add("十二") : ITEM1_cb.Items.Add("十三") : ITEM1_cb.Items.Add("十四") : ITEM1_cb.Items.Add("十五") : ITEM1_cb.Items.Add("十六")
        ITEM1_cb.Items.Add("十七") : ITEM1_cb.Items.Add("十八") : ITEM1_cb.Items.Add("十九") : ITEM1_cb.Items.Add("二十")
    End Sub
    Private Sub 數字1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 數字1_ch.Click
        中文大寫1_ch.Checked = False : 中文小寫1_ch.Checked = False : 數字1_ch.Checked = True
        ITEM1_cb.Items.Clear() : ITEM1_cb.Items.Add("") : For I As Integer = 1 To 30 : ITEM1_cb.Items.Add(I) : Next
    End Sub
    Private Sub 合計項_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合計項_cb.SelectedIndexChanged
        內容_tb.Text = 合計項_cb.Text : ITEM1_cb.Text = "" : 單位_tb.Text = ""
        If 合計項_cb.Text = "合 計 Total" Or Strings.Left(合計項_cb.Text, 2) = "稅金" Then : ITEM1_cb.Text = "*"
        ElseIf Strings.Left(合計項_cb.Text, 3) = "管理費" Then : ITEM1_cb.Text = "^"
        ElseIf Strings.Left(合計項_cb.Text, 2) = "折讓" Then : ITEM1_cb.Text = "#"
        ElseIf 合計項_cb.Text = "總計 Grand Total" Then : ITEM1_cb.Text = "@" : End If
    End Sub
    Private Sub 總表編輯_bt_Click(sender As Object, e As EventArgs) Handles 總表編輯_bt.Click
        總表編輯() : 視窗3_pl.Visible = False : Set_報價明細表_dgv_利潤表關閉()
    End Sub
    Private Sub NUD_01_Click(sender As Object, e As EventArgs) Handles NUD_01.Click
        目前選擇 = "讀取資料" : 座標_lb.Text = 目前選擇
    End Sub
    Private Sub NUD_02_Click(sender As Object, e As EventArgs) Handles NUD_02.Click
        目前選擇 = "讀取資料" : 座標_lb.Text = 目前選擇
    End Sub
    Private Sub NUD_03_Click(sender As Object, e As EventArgs) Handles NUD_03.Click
        目前選擇 = "寫入資料" : 座標_lb.Text = 目前選擇
    End Sub
    Private Sub 選擇_lb_Click(sender As Object, e As EventArgs) Handles 選擇_lb.Click
        目前選擇 = "寫入資料" : 座標_lb.Text = 目前選擇
    End Sub
    Private Sub 文字資料輸入1_bt_Click(sender As Object, e As EventArgs) Handles 文字資料輸入1_bt.Click
        If 選擇項_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("請先點選要輸入在總表的哪一行!!") : Else : MsgBox("Please click on which row you want to enter in the summary table first!!") : End If
        Else
            Dim ZX As Integer = 選擇項_tb.Text
            報價總表_dgv.Rows(ZX).Cells("ITEM").Value = ITEM1_cb.Text : 報價總表_dgv.Rows(ZX).Cells("UNIT").Value = 單位_tb.Text
            報價總表_dgv.Rows(ZX).Cells("REMARKS").Value = 備註_tb.Text : 報價總表_dgv.Rows(ZX).Cells("DESCRIPTION").Value = 內容_tb.Text
            If IsNumeric(數量_tb.Text) = False Then : 報價總表_dgv.Rows(ZX).Cells("QTY").Value = 0 : Else : 報價總表_dgv.Rows(ZX).Cells("QTY").Value = 數量_tb.Text : End If
            報價總表_dgv_自動計算() : 數量_tb.Text = "1"
        End If
    End Sub
    Private Sub B1_bt_Click(sender As Object, e As EventArgs) Handles b1_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 1 : Else : 數值2_tb.Text = 1 : End If
    End Sub
    Private Sub B2_bt_Click(sender As Object, e As EventArgs) Handles b2_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 2 : Else : 數值2_tb.Text = 2 : End If
    End Sub
    Private Sub B3_bt_Click(sender As Object, e As EventArgs) Handles b3_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 3 : Else : 數值2_tb.Text = 3 : End If
    End Sub
    Private Sub B4_bt_Click(sender As Object, e As EventArgs) Handles b4_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 4 : Else : 數值2_tb.Text = 4 : End If
    End Sub
    Private Sub B5_bt_Click(sender As Object, e As EventArgs) Handles b5_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 5 : Else : 數值2_tb.Text = 5 : End If
    End Sub
    Private Sub B6_bt_Click(sender As Object, e As EventArgs) Handles b6_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 6 : Else : 數值2_tb.Text = 6 : End If
    End Sub
    Private Sub B7_bt_Click(sender As Object, e As EventArgs) Handles b7_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 7 : Else : 數值2_tb.Text = 7 : End If
    End Sub
    Private Sub B8_bt_Click(sender As Object, e As EventArgs) Handles b8_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 8 : Else : 數值2_tb.Text = 8 : End If
    End Sub
    Private Sub B9_bt_Click(sender As Object, e As EventArgs) Handles b9_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 9 : Else : 數值2_tb.Text = 9 : End If
    End Sub
    Private Sub B0_bt_Click(sender As Object, e As EventArgs) Handles b0_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & 0 : Else : 數值2_tb.Text = 0 : End If
    End Sub
    Private Sub 小數點_bt_Click(sender As Object, e As EventArgs) Handles 小數點_bt.Click
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = 數值2_tb.Text & "." : Else : 數值2_tb.Text = "0." : End If
    End Sub
    '----------------------------數字鍵盤---------------------------------------------------------------------------------------------------------------
    Private Sub 倒退_bt_Click(sender As Object, e As EventArgs) Handles 倒退_bt.Click
        Dim SS As Integer
        If 數值2_tb.Text <> "" Then : 數值2_tb.Text = Int(Val(數值2_tb.Text) / 10)
        ElseIf 數值2_tb.Text = "" And 數值1_tb.Text <> "" Then : SS = Len(數值1_tb.Text) : 數值1_tb.Text = Strings.Left(數值1_tb.Text, SS - 1)
        Else : 數值2_tb.Text = "" : End If
    End Sub
    Private Sub 除_bt_Click(sender As Object, e As EventArgs) Handles 除_bt.Click
        等於_bt.PerformClick()
        If 數值2_tb.Text <> "" And 數值1_tb.Text = "" Then : 數值1_tb.Text = 數值2_tb.Text : 數值2_tb.Text = "" : End If
        If 數值2_tb.Text <> "" And 數值1_tb.Text <> "" Then : 數值1_tb.Text = Val(數值1_tb.Text) / Val(數值2_tb.Text) : 數值2_tb.Text = "" : End If
        計算式_tb.Text = "/"
    End Sub

    Private Sub 乘_bt_Click(sender As Object, e As EventArgs) Handles 乘_bt.Click
        等於_bt.PerformClick()
        If 數值2_tb.Text <> "" And 數值1_tb.Text = "" Then : 數值1_tb.Text = 數值2_tb.Text : 數值2_tb.Text = "" : End If
        If 數值2_tb.Text <> "" And 數值1_tb.Text <> "" Then : 數值1_tb.Text = Val(數值2_tb.Text) * Val(數值1_tb.Text) : 數值2_tb.Text = "" : End If
        計算式_tb.Text = "X"
    End Sub
    Private Sub 加_bt_Click(sender As Object, e As EventArgs) Handles 加_bt.Click
        等於_bt.PerformClick()
        If 數值2_tb.Text <> "" And 數值1_tb.Text = "" Then : 數值1_tb.Text = 數值2_tb.Text : 數值2_tb.Text = "" : End If
        If 數值2_tb.Text <> "" And 數值1_tb.Text <> "" Then : 數值1_tb.Text = Val(數值2_tb.Text) + Val(數值1_tb.Text) : 數值2_tb.Text = "" : End If
        計算式_tb.Text = "+"
    End Sub
    Private Sub 減_bt_Click(sender As Object, e As EventArgs) Handles 減_bt.Click
        等於_bt.PerformClick()
        If 數值2_tb.Text <> "" And 數值1_tb.Text = "" Then : 數值1_tb.Text = 數值2_tb.Text : 數值2_tb.Text = "" : End If
        If 數值2_tb.Text <> "" And 數值1_tb.Text <> "" Then : 數值1_tb.Text = Val(數值1_tb.Text) - Val(數值2_tb.Text) : 數值2_tb.Text = "" : End If
        計算式_tb.Text = "-"
    End Sub
    Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click
        數值2_tb.Text = "" : 數值1_tb.Text = "" : 計算式_tb.Text = "" : 結果_tb.Text = ""
    End Sub
    Private Sub 數值1_tb_TextChanged(sender As Object, e As EventArgs) Handles 數值1_tb.TextChanged
        結果_tb.Text = 數值1_tb.Text : If 數值1_tb.Text <> "" Then : NUD_01.Value = 數值1_tb.Text : Else : NUD_01.Value = 0 : End If
        If Val(數值1_tb.Text) > 9.99973000350998E+85 Then
            If 系統語言 = "繁體中文" Then : MsgBox("EFFORT錯誤!結果過大， 請重新點擊AC來重新啟動!!")
            Else : MsgBox("EFFORT error! The result is too large, please re-click AC to restart!!") : End If
        End If
    End Sub
    Private Sub 計算式_tb_TextChanged(sender As Object, e As EventArgs) Handles 計算式_tb.TextChanged
        計算1_ch.Text = 計算式_tb.Text
    End Sub
    Private Sub 數值2_tb_TextChanged(sender As Object, e As EventArgs) Handles 數值2_tb.TextChanged
        If 數值2_tb.Text <> "" Then : NUD_02.Value = 數值2_tb.Text : Else : NUD_02.Value = 0 : End If
    End Sub
    Private Sub 結果_tb_TextChanged(sender As Object, e As EventArgs) Handles 結果_tb.TextChanged
        If IsNumeric(結果_tb.Text) Then : If 結果_tb.Text <> "" Then : NUD_03.Value = 結果_tb.Text : Else : NUD_03.Value = 0 : End If : End If
    End Sub
    Private Sub 等於_bt_Click(sender As Object, e As EventArgs) Handles 等於_bt.Click
        If 數值2_tb.Text <> "" And 數值1_tb.Text <> "" Then
            If 計算式_tb.Text = "X" Then : 數值1_tb.Text = Val(數值2_tb.Text) * Val(數值1_tb.Text) : 數值2_tb.Text = "" : End If
            If 計算式_tb.Text = "/" Then : 數值1_tb.Text = Val(數值1_tb.Text) / Val(數值2_tb.Text) : 數值2_tb.Text = "" : End If
            If 計算式_tb.Text = "+" Then : 數值1_tb.Text = Val(數值2_tb.Text) + Val(數值1_tb.Text) : 數值2_tb.Text = "" : End If
            If 計算式_tb.Text = "-" Then : 數值1_tb.Text = Val(數值1_tb.Text) - Val(數值2_tb.Text) : 數值2_tb.Text = "" : End If
        ElseIf 數值2_tb.Text <> "" And 數值1_tb.Text = "" Then
            結果_tb.Text = 數值2_tb.Text
        Else : End If
    End Sub


    '-----------------合約報價明細表-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 合約報價明細表_最後一筆資料()
        SQL_合約報價明細表_最後一筆資料()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "GT" & "00000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "GT" & "0000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "GT" & "000000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "GT" & "00000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "GT" & "0000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "GT" & "000" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "GT" & "00" & EDR : ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "GT" & "0" & EDR
        ElseIf EDR > 99999999 Then : ESTR = "GT" & EDR : End If : PA9 = ESTR
    End Sub
    Private Sub 報價明細表存檔()
        For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
            MyModule1.計算顯示2() : MyModule1.進度條1()
            PA1 = 報價明細表_dgv.Rows(i).Cells("排序").Value.ToString : PA2 = 報價明細表_dgv.Rows(i).Cells("ITEM").Value.ToString
            PA3 = 報價明細表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString : PA4 = 報價明細表_dgv.Rows(i).Cells("UNIT").Value.ToString
            PA5 = 報價明細表_dgv.Rows(i).Cells("QTY").Value.ToString : PA6 = 報價明細表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString
            PA7 = 報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString : PA8 = 報價明細表_dgv.Rows(i).Cells("REMARKS").Value.ToString
            PA9 = 報價明細表_dgv.Rows(i).Cells("流水號").Value.ToString : PA10 = 報價明細表_dgv.Rows(i).Cells("實際數量").Value.ToString
            PA11 = 報價明細表_dgv.Rows(i).Cells("工資成本單價").Value.ToString : PA12 = 報價明細表_dgv.Rows(i).Cells("工資報價單價").Value.ToString
            PA13 = 報價明細表_dgv.Rows(i).Cells("材料成本單價").Value.ToString : PA14 = 報價明細表_dgv.Rows(i).Cells("材料報價單價").Value.ToString
            PA15 = 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString : BL = 報價明細表_dgv.Rows(i).Cells("不計").Value
            PA16 = 報價明細表_dgv.Rows(i).Cells("材料係數").Value.ToString : BL1 = 報價明細表_dgv.Rows(i).Cells("D1").Value
            BL2 = 報價明細表_dgv.Rows(i).Cells("D2").Value : BL3 = 報價明細表_dgv.Rows(i).Cells("D3").Value : BL4 = 報價明細表_dgv.Rows(i).Cells("D4").Value
            BL5 = 報價明細表_dgv.Rows(i).Cells("D5").Value : BL6 = 報價明細表_dgv.Rows(i).Cells("D6").Value : BL7 = 報價明細表_dgv.Rows(i).Cells("D7").Value
            BL8 = 報價明細表_dgv.Rows(i).Cells("D8").Value
            SQL_合約報價明細表_存檔()
        Next
        '-----------------預估利潤存檔-------------------------------------------------------------------------------------------------------------------------------
        If 預估工資總成本_tb.Text = "" Then : 預估工資總成本_tb.Text = "0" : End If
        PA37 = 預估工資總成本_tb.Text
        預估利潤存檔()
    End Sub

    Private Sub 新增資料2_bt_Click(sender As Object, e As EventArgs) Handles 新增資料2_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            資料數 = 報價明細表_dgv.Rows.Count * 2 : 進度條視窗.Show()
            報價明細表存檔()
            Dim SS As String
            If 系統語言 = "繁體中文" Then : SS = "請輸入要新增幾行空白欄未!! (請輸入數字)!!"
            Else : SS = "PHarap masukkan beberapa bidang kosong untuk ditambahkan!! (Silakan masukkan nomor)" : End If
            PA20 = InputBox(SS)
            If IsNumeric(PA20) = False Then : If 系統語言 = "繁體中文" Then : MsgBox("你輸入的不是數字!!") : Else : MsgBox("You are not entering numbers!!") : End If : Else
                For ia As Integer = 1 To PA20
                    PA = 合約編號_tb.Text : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = "" : PA10 = "" : PA11 = "" : PA12 = ""
                    PA13 = "" : PA14 = "" : PA15 = "" : PA16 = "" : BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False
                    BL7 = False : BL8 = False : BL9 = True
                    合約報價明細表_最後一筆資料()

                    If 選擇項1_tb.Text = "" Then
                        SQL_合約報價明細表_最後一筆排序()
                        If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "00" : End If : conn.Close()
                        NUM1 = Double.Parse(PA1) + 1
                        If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
                    Else
                        PA1 = 選擇項2_tb.Text & "-1"
                    End If
                    SQL_合約報價明細表_新增資料()
                Next : Set_合約報價明細表()
                For I As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                    MyModule1.計算顯示2() : MyModule1.進度條1()
                    If I < 10 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "00" & I
                    ElseIf I > 9 And I < 100 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "0" & I
                    ElseIf I > 99 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = I
                    End If
                Next : 報價明細表存檔() : MyModule1.計算顯示3()
            End If
        End If
    End Sub
    Private Sub 報價明細表存檔_bt_Click(sender As Object, e As EventArgs) Handles 報價明細表存檔_bt.Click
        If 報價明細表_dgv.Rows.Count = 0 Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有可以存檔的資料!!") : Else : MsgBox("No data to archive!!") : End If : Else
            資料數 = 報價明細表_dgv.Rows.Count : 進度條視窗.Show()
            報價總表存檔按鈕() : 報價明細表存檔() : Set_合約報價明細表() : 預估利潤存檔() : MyModule1.計算顯示3()
            If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Archive complete!!") : End If
        End If
    End Sub
    Private Sub 總表選擇刪除1_bt_Click(sender As Object, e As EventArgs) Handles 總表選擇刪除1_bt.Click
        If 啟用批量選擇_ch.Checked = False Then
            If 明細表流水_tb.Text = "" Then
                If 系統語言 = "繁體中文" Then : MsgBox("請先選擇要刪除的資料是哪一筆!!")
                Else : MsgBox("Please select which data to delete first!!") : End If
            Else
                資料數 = 報價明細表_dgv.Rows.Count : 進度條視窗.Show()
                報價明細表存檔() : PA9 = 明細表流水_tb.Text : SQL_合約報價明細表_刪除資料() : Set_合約報價明細表() : MyModule1.計算顯示3()
            End If
        Else
            資料數 = 報價明細表_dgv.Rows.Count * 2 : 進度條視窗.Show()
            報價明細表存檔()
            For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                MyModule1.計算顯示2() : MyModule1.進度條1()
                If 報價明細表_dgv("S", i).Value = True Then
                    PA9 = 報價明細表_dgv.Rows(i).Cells("流水號").Value.ToString : SQL_合約報價明細表_刪除資料()
                End If
            Next : MyModule1.計算顯示3() : Set_合約報價明細表() : 啟用批量選擇_ch.Checked = False
        End If
    End Sub
    Private Sub 選擇材料新增到明細表_bt_Click(sender As Object, e As EventArgs) Handles 選擇材料新增到明細表_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            If 料號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇物料!!") : Else : MsgBox("No material selected!!") : End If : Else
                資料數 = 報價明細表_dgv.Rows.Count * 2 : 進度條視窗.Show() : 報價明細表存檔()
                PA = 合約編號_tb.Text : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = "" : PA10 = "0" : PA11 = ""
                PA12 = "" : PA14 = "" : PA15 = 料號_tb.Text : PA16 = "" : BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False
                BL8 = False : BL9 = True : If 帶上歷史單價_ch.Checked = True Then : PA13 = 歷史單價_tb.Text : Else : PA13 = "" : End If
                明細表新增資料() : MyModule1.計算顯示3()
            End If
        End If
    End Sub
    Private Sub BOM新增到明細表_bt_Click(sender As Object, e As EventArgs) Handles BOM新增到明細表_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            If ITEM4_cb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇ITEM!!") : Else : MsgBox("Please select ITEM first!!") : End If : Else
                If 主項目_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇主項目!!") : Else : MsgBox("Please select the main item first!!") : End If : Else
                    資料數 = (報價明細表_dgv.Rows.Count * 2) + BOM表明細_dgv.Rows.Count : 進度條視窗.Show()
                    報價明細表存檔()
                    PA = 合約編號_tb.Text : PA2 = ITEM4_cb.Text : PA3 = 主項目_tb.Text : PA4 = "" : PA5 = "0" : PA6 = "0" : PA7 = "0" : PA8 = "" : PA10 = "" : PA11 = ""
                    PA12 = "" : PA14 = "" : PA15 = "" : PA16 = "" : BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False
                    BL7 = False : BL8 = False : BL9 = True

                    合約報價明細表_最後一筆資料()

                    If 選擇項1_tb.Text = "" Then : SQL_合約報價明細表_最後一筆排序()
                        If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "000" : End If : conn.Close()
                        NUM1 = Double.Parse(PA1) + 1
                        If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
                    Else : PA1 = 選擇項2_tb.Text & "-00" : End If : SQL_合約報價明細表_新增資料()

                    For i As Integer = 0 To BOM表明細_dgv.Rows.Count - 1
                        MyModule1.計算顯示2() : MyModule1.進度條1()
                        PA2 = BOM表明細_dgv.Rows(i).Cells("項次").Value.ToString : PA3 = BOM表明細_dgv.Rows(i).Cells("項目").Value.ToString
                        PA4 = BOM表明細_dgv.Rows(i).Cells("單位").Value.ToString : PA5 = BOM表明細_dgv.Rows(i).Cells("數量").Value.ToString : PA6 = "0" : PA7 = "0" : PA8 = ""
                        PA10 = BOM表明細_dgv.Rows(i).Cells("數量").Value.ToString : PA11 = "" : PA12 = "" : PA14 = "" : PA15 = BOM表明細_dgv.Rows(i).Cells("料號").Value.ToString

                        合約報價明細表_最後一筆資料()

                        If 選擇項1_tb.Text = "" Then
                            SQL_合約報價明細表_最後一筆排序()
                            If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "000" : End If : conn.Close()
                            NUM1 = Double.Parse(PA1) + 1
                            If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
                        Else
                            If CInt(BOM表明細_dgv.Rows(i).Cells("項次").Value.ToString) < 10 Then
                                PA1 = 選擇項2_tb.Text & "-0" & BOM表明細_dgv.Rows(i).Cells("項次").Value.ToString
                            ElseIf CInt(BOM表明細_dgv.Rows(i).Cells("項次").Value.ToString) > 9 Then
                                PA1 = 選擇項2_tb.Text & "-" & BOM表明細_dgv.Rows(i).Cells("項次").Value.ToString
                            End If
                        End If : SQL_合約報價明細表_新增資料()
                    Next : Set_合約報價明細表()

                    For I As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                        MyModule1.計算顯示2() : MyModule1.進度條1()
                        If I < 10 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "000" & I
                        ElseIf I > 9 And I < 100 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "0" & I
                        ElseIf I > 99 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = I
                        End If
                    Next : 報價明細表存檔() : MyModule1.計算顯示3()
                End If
            End If
        End If
    End Sub
    Private Sub 選取資料新增到明細表_bt_Click(sender As Object, e As EventArgs) Handles 選取資料新增到明細表_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            資料數 = (報價明細表_dgv.Rows.Count * 2) + 報價明細表2_dgv.Rows.Count : 進度條視窗.Show()
            報價明細表存檔()
            For i As Integer = 0 To 報價明細表2_dgv.Rows.Count - 1
                MyModule1.計算顯示2() : MyModule1.進度條1()
                If 報價明細表2_dgv.Rows(i).Cells("選擇").Value = True Then
                    PA = 合約編號_tb.Text : PA2 = 報價明細表2_dgv.Rows(i).Cells("ITEM").Value.ToString : PA3 = 報價明細表2_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString
                    PA4 = 報價明細表2_dgv.Rows(i).Cells("UNIT").Value.ToString : PA5 = 報價明細表2_dgv.Rows(i).Cells("QTY").Value.ToString : PA6 = "0" : PA7 = "0" : PA8 = ""
                    PA10 = 報價明細表2_dgv.Rows(i).Cells("QTY").Value.ToString : PA11 = "" : PA12 = "" : PA14 = "" : PA15 = 報價明細表2_dgv.Rows(i).Cells("料號").Value.ToString
                    PA16 = 報價明細表2_dgv.Rows(i).Cells("材料係數").Value.ToString : BL = 報價明細表2_dgv.Rows(i).Cells("不計").Value : BL1 = 報價明細表2_dgv.Rows(i).Cells("D1").Value
                    BL2 = 報價明細表2_dgv.Rows(i).Cells("D1").Value : BL3 = 報價明細表2_dgv.Rows(i).Cells("D1").Value : BL4 = 報價明細表2_dgv.Rows(i).Cells("D1").Value
                    BL5 = 報價明細表2_dgv.Rows(i).Cells("D1").Value : BL6 = 報價明細表2_dgv.Rows(i).Cells("D1").Value : BL7 = 報價明細表2_dgv.Rows(i).Cells("D1").Value
                    BL8 = 報價明細表2_dgv.Rows(i).Cells("D1").Value : BL9 = 報價明細表2_dgv.Rows(i).Cells("預設").Value
                    合約報價明細表_最後一筆資料()

                    If 選擇項1_tb.Text = "" Then
                        SQL_合約報價明細表_最後一筆排序()
                        If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "00" : End If : conn.Close()
                        NUM1 = Double.Parse(PA1) + 1
                        If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
                    Else : PA1 = 選擇項2_tb.Text & "-" & i + 1 : End If
                    SQL_合約報價明細表_新增資料()
                End If
            Next : Set_合約報價明細表()
            For I As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                MyModule1.計算顯示2() : MyModule1.進度條1()
                If I < 10 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "000" & I
                ElseIf I > 9 And I < 100 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "0" & I
                ElseIf I > 99 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = I
                End If
            Next : 報價明細表存檔() : MyModule1.計算顯示3()
            全部取消_bt.PerformClick()
        End If
    End Sub
    Private Sub 明細表新增資料()
        合約報價明細表_最後一筆資料()

        If 選擇項1_tb.Text = "" Then
            SQL_合約報價明細表_最後一筆排序()
            If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "00" : End If : conn.Close()
            NUM1 = Double.Parse(PA1) + 1
            If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
        Else : PA1 = 選擇項2_tb.Text & "-1" : End If

        SQL_合約報價明細表_新增資料()
        If 複製報價 = False Then
            Set_合約報價明細表()
            For I As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                MyModule1.計算顯示2() : MyModule1.進度條1()
                If I < 10 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "00" & I
                ElseIf I > 9 And I < 100 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = "0" & I
                ElseIf I > 99 Then : 報價明細表_dgv.Rows(I).Cells("排序").Value = I
                End If
            Next : 報價明細表存檔()
        End If
    End Sub
    Private Sub 修改明細表上的材料指定_bt_Click(sender As Object, e As EventArgs) Handles 修改明細表上的材料指定_bt.Click
        If 明細表流水_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("請先選擇要修改的資料是哪一筆!!") : Else : MsgBox("Please select which data you want to modify first!!") : End If : Else
            If 料號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇物料!!") : Else : MsgBox("No material selected!!") : End If : Else
                資料數 = 報價明細表_dgv.Rows.Count : 進度條視窗.Show()
                報價明細表存檔() : PA = 合約編號_tb.Text : PA9 = 明細表流水_tb.Text : PA15 = 料號_tb.Text : PA2 = ITEM3_cb.Text : PA5 = 申請數_nud.Value : PA4 = 單位2_tb.Text
                If 帶上歷史單價_ch.Checked = True Then : SQL2 = ", 材料成本單價 = N '" & 歷史單價_tb.Text & "' " : Else : SQL2 = "" : End If
                SQL_合約報價明細表_存檔_料號() : Set_合約報價明細表() : MyModule1.計算顯示3()
            End If
        End If
    End Sub
    Private Sub 排序2_bt_Click(sender As Object, e As EventArgs) Handles 排序2_bt.Click
        If 報價明細表_dgv.Rows.Count > 0 Then
            If 報價明細表_dgv.Columns(0).Visible = False Then : 報價明細表_dgv.Columns(0).Visible = True : Else : 報價明細表_dgv.Columns(0).Visible = False : End If
        End If : Set_合約報價明細表格式()
    End Sub


    '-----------------合約報價明細表表編輯功能-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 明細表編輯()
        If 視窗3_pl.Visible = False Then
            視窗3_pl.Location = New System.Drawing.Point(123, 58) : 視窗3_pl.Visible = True
            目前選擇 = "讀取資料" : 座標1_lb.Text = 目前選擇
            X_2_tb.Text = "" : Y_2_tb.Text = "" : NUD_04.Value = 0 : NUD_05.Value = 0 : NUD_06.Value = 0
            中文大寫2_ch.Checked = True : 中文小寫2_ch.Checked = False : 數字2_ch.Checked = False
            ITEM2_cb.Items.Clear() : ITEM2_cb.Items.Add("") : ITEM2_cb.Items.Add("壹") : ITEM2_cb.Items.Add("貳") : ITEM2_cb.Items.Add("參") : ITEM2_cb.Items.Add("肆")
            ITEM2_cb.Items.Add("伍") : ITEM2_cb.Items.Add("陸") : ITEM2_cb.Items.Add("柒") : ITEM2_cb.Items.Add("捌") : ITEM2_cb.Items.Add("玖") : ITEM2_cb.Items.Add("拾")
            ITEM2_cb.Items.Add("拾壹") : ITEM2_cb.Items.Add("拾貳") : ITEM2_cb.Items.Add("拾參") : ITEM2_cb.Items.Add("拾肆") : ITEM2_cb.Items.Add("拾伍") : ITEM2_cb.Items.Add("拾陸")
            ITEM2_cb.Items.Add("拾柒") : ITEM2_cb.Items.Add("拾捌") : ITEM2_cb.Items.Add("拾玖") : ITEM2_cb.Items.Add("貳拾")
            Set_報價明細表_dgv_利潤表開啟() : 視窗3_pl.BringToFront()
        Else : 視窗3_pl.Visible = False : End If
    End Sub
    Private Sub 中文大寫2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中文大寫2_ch.Click
        中文大寫2_ch.Checked = True : 中文小寫2_ch.Checked = False : 數字2_ch.Checked = False
        ITEM2_cb.Items.Clear() : ITEM2_cb.Items.Add("") : ITEM2_cb.Items.Add("壹") : ITEM2_cb.Items.Add("貳") : ITEM2_cb.Items.Add("參") : ITEM2_cb.Items.Add("肆")
        ITEM2_cb.Items.Add("伍") : ITEM2_cb.Items.Add("陸") : ITEM2_cb.Items.Add("柒") : ITEM2_cb.Items.Add("捌") : ITEM2_cb.Items.Add("玖") : ITEM2_cb.Items.Add("拾")
        ITEM2_cb.Items.Add("拾壹") : ITEM2_cb.Items.Add("拾貳") : ITEM2_cb.Items.Add("拾參") : ITEM2_cb.Items.Add("拾肆") : ITEM2_cb.Items.Add("拾伍") : ITEM2_cb.Items.Add("拾陸")
        ITEM2_cb.Items.Add("拾柒") : ITEM2_cb.Items.Add("拾捌") : ITEM2_cb.Items.Add("拾玖") : ITEM2_cb.Items.Add("貳拾")
    End Sub
    Private Sub 中文小寫2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中文小寫2_ch.Click
        中文大寫2_ch.Checked = False : 中文小寫2_ch.Checked = True : 數字2_ch.Checked = False
        ITEM2_cb.Items.Clear() : ITEM2_cb.Items.Add("") : ITEM2_cb.Items.Add("一") : ITEM2_cb.Items.Add("二") : ITEM2_cb.Items.Add("三") : ITEM2_cb.Items.Add("四")
        ITEM2_cb.Items.Add("五") : ITEM2_cb.Items.Add("六") : ITEM2_cb.Items.Add("七") : ITEM2_cb.Items.Add("八") : ITEM2_cb.Items.Add("九") : ITEM2_cb.Items.Add("十")
        ITEM2_cb.Items.Add("十一") : ITEM2_cb.Items.Add("十二") : ITEM2_cb.Items.Add("十三") : ITEM2_cb.Items.Add("十四") : ITEM2_cb.Items.Add("十五") : ITEM2_cb.Items.Add("十六")
        ITEM2_cb.Items.Add("十七") : ITEM2_cb.Items.Add("十八") : ITEM2_cb.Items.Add("十九") : ITEM2_cb.Items.Add("二十")
    End Sub
    Private Sub 數字2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 數字2_ch.Click
        中文大寫2_ch.Checked = False : 中文小寫2_ch.Checked = False : 數字2_ch.Checked = True
        ITEM2_cb.Items.Clear() : ITEM2_cb.Items.Add("") : For I As Integer = 1 To 30 : ITEM2_cb.Items.Add(I) : Next
    End Sub
    Private Sub 合計項1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合計項1_cb.SelectedIndexChanged
        內容1_tb.Text = 合計項1_cb.Text : ITEM2_cb.Text = "" : 單位1_tb.Text = "" : If 合計項1_cb.Text <> "" Then : ITEM2_cb.Text = "*" : Else : End If
    End Sub
    Private Sub 明細表編輯_bt_Click(sender As Object, e As EventArgs) Handles 明細表編輯_bt.Click
        明細表編輯() : 視窗2_pl.Visible = False
    End Sub
    Private Sub NUD_04_Click(sender As Object, e As EventArgs) Handles NUD_04.Click
        目前選擇 = "讀取資料" : 座標1_lb.Text = 目前選擇
    End Sub
    Private Sub NUD_05_Click(sender As Object, e As EventArgs) Handles NUD_05.Click
        目前選擇 = "讀取資料" : 座標1_lb.Text = 目前選擇
    End Sub
    Private Sub NUD_06_Click(sender As Object, e As EventArgs) Handles NUD_06.Click
        目前選擇 = "寫入資料" : 座標1_lb.Text = 目前選擇
    End Sub
    Private Sub 選擇1_lb_Click(sender As Object, e As EventArgs) Handles 選擇1_lb.Click
        目前選擇 = "寫入資料" : 座標1_lb.Text = 目前選擇
    End Sub
    Private Sub 文字資料輸入2_bt_Click(sender As Object, e As EventArgs) Handles 文字資料輸入2_bt.Click
        If 選擇項1_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("請先點選要輸入在明細表的哪一行!!") : Else : MsgBox("Please click on which row you want to enter in the detail table first!!") : End If
        Else
            Dim ZX As Integer = 選擇項1_tb.Text
            報價明細表_dgv.Rows(ZX).Cells("ITEM").Value = ITEM2_cb.Text : 報價明細表_dgv.Rows(ZX).Cells("REMARKS").Value = 備註1_tb.Text
            報價明細表_dgv.Rows(ZX).Cells("DESCRIPTION").Value = 內容1_tb.Text : 報價明細表_dgv.Rows(ZX).Cells("UNIT").Value = 單位1_tb.Text : 報價明細表_dgv_自動計算()
        End If
    End Sub
    Private Sub A1_bt_Click(sender As Object, e As EventArgs) Handles A1_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 1 : Else : 數值4_tb.Text = 1 : End If
    End Sub
    Private Sub A2_bt_Click(sender As Object, e As EventArgs) Handles A2_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 2 : Else : 數值4_tb.Text = 2 : End If
    End Sub
    Private Sub A3_bt_Click(sender As Object, e As EventArgs) Handles A3_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 3 : Else : 數值4_tb.Text = 3 : End If
    End Sub
    Private Sub A4_bt_Click(sender As Object, e As EventArgs) Handles A4_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 4 : Else : 數值4_tb.Text = 4 : End If
    End Sub
    Private Sub A5_bt_Click(sender As Object, e As EventArgs) Handles A5_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 5 : Else : 數值4_tb.Text = 5 : End If
    End Sub
    Private Sub A6_bt_Click(sender As Object, e As EventArgs) Handles A6_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 6 : Else : 數值4_tb.Text = 6 : End If
    End Sub
    Private Sub A7_bt_Click(sender As Object, e As EventArgs) Handles A7_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 7 : Else : 數值4_tb.Text = 7 : End If
    End Sub
    Private Sub A8_bt_Click(sender As Object, e As EventArgs) Handles A8_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 8 : Else : 數值4_tb.Text = 8 : End If
    End Sub
    Private Sub A9_bt_Click(sender As Object, e As EventArgs) Handles A9_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 9 : Else : 數值4_tb.Text = 9 : End If
    End Sub
    Private Sub A0_bt_Click(sender As Object, e As EventArgs) Handles A0_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & 0 : Else : 數值4_tb.Text = 0 : End If
    End Sub
    Private Sub 小數點1_bt_Click(sender As Object, e As EventArgs) Handles 小數點1_bt.Click
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = 數值4_tb.Text & "." : Else : 數值4_tb.Text = "0." : End If
    End Sub
    '----------------------------數字鍵盤---------------------------------------------------------------------------------------------------------------
    Private Sub 倒退1_bt_Click(sender As Object, e As EventArgs) Handles 倒退1_bt.Click
        Dim SS As Integer
        If 數值4_tb.Text <> "" Then : 數值4_tb.Text = Int(Val(數值4_tb.Text) / 10)
        ElseIf 數值4_tb.Text = "" And 數值3_tb.Text <> "" Then : SS = Len(數值3_tb.Text) : 數值3_tb.Text = Strings.Left(數值3_tb.Text, SS - 1)
        Else : 數值4_tb.Text = "" : End If
    End Sub
    Private Sub 除1_bt_Click(sender As Object, e As EventArgs) Handles 除1_bt.Click
        等於1_bt.PerformClick()
        If 數值4_tb.Text <> "" And 數值3_tb.Text = "" Then : 數值3_tb.Text = 數值4_tb.Text : 數值4_tb.Text = "" : End If
        If 數值4_tb.Text <> "" And 數值3_tb.Text <> "" Then : 數值3_tb.Text = Val(數值3_tb.Text) / Val(數值4_tb.Text) : 數值4_tb.Text = "" : End If
        計算式1_tb.Text = "/"
    End Sub

    Private Sub 乘1_bt_Click(sender As Object, e As EventArgs) Handles 乘1_bt.Click
        等於1_bt.PerformClick()
        If 數值4_tb.Text <> "" And 數值3_tb.Text = "" Then : 數值3_tb.Text = 數值4_tb.Text : 數值4_tb.Text = "" : End If
        If 數值4_tb.Text <> "" And 數值3_tb.Text <> "" Then : 數值3_tb.Text = Val(數值4_tb.Text) * Val(數值3_tb.Text) : 數值4_tb.Text = "" : End If
        計算式1_tb.Text = "X"
    End Sub
    Private Sub 加1_bt_Click(sender As Object, e As EventArgs) Handles 加1_bt.Click
        等於1_bt.PerformClick()
        If 數值4_tb.Text <> "" And 數值3_tb.Text = "" Then : 數值3_tb.Text = 數值4_tb.Text : 數值4_tb.Text = "" : End If
        If 數值4_tb.Text <> "" And 數值3_tb.Text <> "" Then : 數值3_tb.Text = Val(數值4_tb.Text) + Val(數值3_tb.Text) : 數值4_tb.Text = "" : End If
        計算式1_tb.Text = "+"
    End Sub
    Private Sub 減1_bt_Click(sender As Object, e As EventArgs) Handles 減1_bt.Click
        等於1_bt.PerformClick()
        If 數值4_tb.Text <> "" And 數值3_tb.Text = "" Then : 數值3_tb.Text = 數值4_tb.Text : 數值4_tb.Text = "" : End If
        If 數值4_tb.Text <> "" And 數值3_tb.Text <> "" Then : 數值3_tb.Text = Val(數值3_tb.Text) - Val(數值4_tb.Text) : 數值4_tb.Text = "" : End If
        計算式1_tb.Text = "-"
    End Sub
    Private Sub 清除1_bt_Click(sender As Object, e As EventArgs) Handles 清除1_bt.Click
        數值4_tb.Text = "" : 數值3_tb.Text = "" : 計算式1_tb.Text = "" : 結果1_tb.Text = ""
    End Sub
    Private Sub 數值3_tb_TextChanged(sender As Object, e As EventArgs) Handles 數值3_tb.TextChanged
        結果1_tb.Text = 數值3_tb.Text : If 數值3_tb.Text <> "" Then : NUD_04.Value = 數值3_tb.Text : Else : NUD_04.Value = 0 : End If
        If Val(數值3_tb.Text) > 9.99973000350998E+85 Then
            If 系統語言 = "繁體中文" Then : MsgBox("EFFORT錯誤!結果過大， 請重新點擊AC來重新啟動!!")
            Else : MsgBox("EFFORT error! The result is too large, please re-click AC to restart!!") : End If
        End If
    End Sub
    Private Sub 計算式1_tb_TextChanged(sender As Object, e As EventArgs) Handles 計算式1_tb.TextChanged
        計算2_ch.Text = 計算式1_tb.Text
    End Sub
    Private Sub 數值4_tb_TextChanged(sender As Object, e As EventArgs) Handles 數值4_tb.TextChanged
        If 數值4_tb.Text <> "" Then : NUD_05.Value = 數值4_tb.Text : Else : NUD_05.Value = 0 : End If
    End Sub
    Private Sub 結果1_tb_TextChanged(sender As Object, e As EventArgs) Handles 結果1_tb.TextChanged
        If IsNumeric(結果1_tb.Text) Then : If 結果1_tb.Text <> "" Then : NUD_06.Value = 結果1_tb.Text : Else : NUD_06.Value = 0 : End If : End If
    End Sub
    Private Sub 等於1_bt_Click(sender As Object, e As EventArgs) Handles 等於1_bt.Click
        If 數值4_tb.Text <> "" And 數值3_tb.Text <> "" Then
            If 計算式1_tb.Text = "X" Then : 數值3_tb.Text = Val(數值4_tb.Text) * Val(數值3_tb.Text) : 數值4_tb.Text = "" : End If
            If 計算式1_tb.Text = "/" Then : 數值3_tb.Text = Val(數值3_tb.Text) / Val(數值4_tb.Text) : 數值4_tb.Text = "" : End If
            If 計算式1_tb.Text = "+" Then : 數值3_tb.Text = Val(數值4_tb.Text) + Val(數值3_tb.Text) : 數值4_tb.Text = "" : End If
            If 計算式1_tb.Text = "-" Then : 數值3_tb.Text = Val(數值3_tb.Text) - Val(數值4_tb.Text) : 數值4_tb.Text = "" : End If
        ElseIf 數值4_tb.Text <> "" And 數值3_tb.Text = "" Then
            結果1_tb.Text = 數值4_tb.Text
        Else : End If
    End Sub


    '-----------------合約係數功能-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 係數範本_tb_Click(sender As Object, e As EventArgs) Handles 係數範本_tb.Click
        If 合約_lb.Text = "合約" Then : PA = "" : Set_合約報價係數() : 合約_lb.Text = "範本" : Else
            If 合約編號_tb.Text = "" Then
                If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If
            Else : PA = 合約編號_tb.Text : Set_合約報價係數() : 合約_lb.Text = "合約"
            End If
        End If
    End Sub
    Private Sub 係數項目刪除_bt_Click(sender As Object, e As EventArgs) Handles 係數項目刪除_bt.Click
        If 係數流水號_tb.Text = "" Or 係數合約號_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇係數項目!!") : Else : MsgBox("No coefficient item selected!!") : End If : Else
            Dim SS As String
            If 系統語言 = "繁體中文" Then : SS = "是否要刪除這筆資料?" : Else : SS = "Do you want to delete this data?" : End If
            Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) '對話框(3)
            If aa = MsgBoxResult.Ok Then
                PA = 係數合約號_tb.Text : PA1 = 係數流水號_tb.Text
                SQL_合約報價係數刪除() : If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Delete complete!!") : End If : Set_合約報價係數()
                合約_lb.Text = "合約" : 係數合約號_tb.Text = "" : 係數流水號_tb.Text = "" : 係數項目_cb.Text = "" : 係數_nup.Value = 0 : 係數單位_cb.Text = ""
            End If
        End If
    End Sub
    Private Sub 係數項目修改_bt_Click(sender As Object, e As EventArgs) Handles 係數項目修改_bt.Click
        If 係數流水號_tb.Text = "" Or 係數合約號_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇係數項目!!") : Else : MsgBox("No coefficient item selected!!") : End If : Else
            PA = 係數合約號_tb.Text : PA1 = 係數流水號_tb.Text : SQL_合約報價係數修改()
            If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modification complete!!") : End If : Set_合約報價係數() : 合約_lb.Text = "合約"
            係數合約號_tb.Text = "" : 係數流水號_tb.Text = "" : 係數項目_cb.Text = "" : 係數_nup.Value = 0 : 係數單位_cb.Text = ""
        End If
    End Sub
    Private Sub 係數流水號()
        SQL_合約報價係數_最後一筆資料()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
        conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "CF" & "00000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CF" & "0000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CF" & "000000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CF" & "00000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CF" & "0000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CF" & "000" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CF" & "00" & EDR : ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CF" & "0" & EDR
        ElseIf EDR > 99999999 Then : ESTR = "CF" & EDR : End If
        PA1 = ESTR
    End Sub
    Private Sub 係數項目新增_bt_Click(sender As Object, e As EventArgs) Handles 係數項目新增_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            If 係數項目_cb.Text = "" Or 係數單位_cb.Text = "" Then
                If 系統語言 = "繁體中文" Then : MsgBox("沒有填寫新增項目或單位!!") : Else : MsgBox("No new items or units are filled in!!") : End If
            Else
                PA = 合約編號_tb.Text : PA2 = 係數項目_cb.Text : PA3 = 係數_nup.Value : PA4 = 係數單位_cb.Text : SQL_合約報價係數資料不重複()
                If dr.Read Then : If 系統語言 = "繁體中文" Then : MsgBox("該係數項目已經存在!!") : Else : MsgBox("The coefficient item already exists!!") : End If : Else
                    係數流水號() : SQL_合約報價係數_新增() : If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Added complete!!") : End If
                    Set_合約報價係數() : 合約_lb.Text = "合約" : 係數合約號_tb.Text = "" : 係數流水號_tb.Text = "" : 係數項目_cb.Text = "" : 係數_nup.Value = 0 : 係數單位_cb.Text = ""
                End If
            End If
        End If
    End Sub
    Private Sub 複製係數範本_tb_Click(sender As Object, e As EventArgs) Handles 複製係數範本_tb.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            係數範本_tb.PerformClick() : PA = 合約編號_tb.Text
            For i As Integer = 0 To 報價係數_dgv.Rows.Count - 1
                PA2 = 報價係數_dgv("項目", i).Value.ToString : PA3 = 報價係數_dgv("係數", i).Value.ToString : PA4 = 報價係數_dgv("單位", i).Value.ToString
                SQL_合約報價係數資料不重複() : If dr.Read Then : Else : 係數流水號() : SQL_合約報價係數_新增() : End If
            Next : If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Added complete!!") : End If : Set_合約報價係數() : 合約_lb.Text = "合約"
        End If
    End Sub


    '-----------------合約試算表功能-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 試算表_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 試算表_cb.SelectedIndexChanged
        PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : PA3 = 試算表_cb.Text : SQL_合約試算分表重複查詢()
        If dr.Read() Then : 係數_nud.Value = dr("係數") : 表號_tb.Text = dr("表號").ToString : End If : 合約試算控制下拉清單()
    End Sub
    Private Sub 樓層_迴路_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 樓層_迴路_cb.SelectedIndexChanged
        PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : PA4 = 樓層_迴路_cb.Text : SQL_合約試算控制表重複查詢() : If dr.Read() Then : 表頭_tb.Text = dr("表頭") : End If
    End Sub
    Private Sub 表號_tb_TextChanged(sender As Object, e As EventArgs) Handles 表號_tb.TextChanged
        PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : Set_合約試算控制表_查詢()
    End Sub
    Private Sub 新增試算表_bt_Click(sender As Object, e As EventArgs) Handles 新增試算表_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            PA = 合約編號_tb.Text : PA3 = 試算表_cb.Text : SQL_合約試算分表重複查詢()
            If dr.Read() Then : If 系統語言 = "繁體中文" Then : MsgBox("[試算表]名稱重複，請重新輸入!!") : Else : MsgBox("[Spreadsheet] Duplicate name, please re-enter!!") : End If : Else
                '------生成表號---------------------------------------------------------------------------------------
                Dim 表號 As String : PA = 合約編號_tb.Text
                conn.Close() : SQL_合約試算分表_最後一筆資料()
                If dr.Read() Then : 表號 = dr("表號").ToString : Else : 表號 = "B00" : End If : conn.Close()
                Dim NUM1 As Integer
                NUM1 = Double.Parse(Strings.Right(表號, 2)) + 1
                If NUM1 < 10 Then : 表號 = "B" & "0" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 表號 = "B" & NUM1 : End If
                '------新增試算表---------------------------------------------------------------------------------------
                表號_tb.Text = 表號 : PA1 = 試算表_cb.Text : PA2 = 表號_tb.Text : SQL_合約試算分表_新增()
                '------重新載入下拉清單---------------------------------------------------------------------------------------
                合約試算分下拉清單() : If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Added complete!!") : End If
            End If : conn.Close()
        End If
    End Sub
    Private Sub 修改試算表名稱_bt_Click(sender As Object, e As EventArgs) Handles 修改試算表名稱_bt.Click
        PA = 合約編號_tb.Text : PA3 = 試算表_cb.Text : SQL_合約試算分表重複查詢()
        If dr.Read() Then : If 系統語言 = "繁體中文" Then : MsgBox("[試算表]名稱重複，請重新輸入!!") : Else : MsgBox("[Spreadsheet] Duplicate name, please re-enter!!") : End If : Else
            PA = 合約編號_tb.Text : PA1 = 試算表_cb.Text : PA2 = 表號_tb.Text : SQL_合約試算分表_試算表修改()
            '------重新載入下拉清單---------------------------------------------------------------------------------------
            合約試算分下拉清單() : If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modification complete!!") : End If
        End If : conn.Close()
    End Sub
    Private Sub 新增物件_bt_Click(sender As Object, e As EventArgs) Handles 新增物件_bt.Click
        If 試算控制表_dgv.Rows.Count = 40 Then
            If 系統語言 = "繁體中文" Then : MsgBox("單一試算表內最多只能建立40個[樓層/迴路]!!") : Else : MsgBox("Only a maximum of 40 [floors/circuits] can be created in a single spreadsheet!!") : End If : Else
            If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
                PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : PA4 = 樓層_迴路_cb.Text : SQL_合約試算控制表重複查詢()
                If dr.Read() Then
                    If 系統語言 = "繁體中文" Then : MsgBox("[樓層/迴路]名稱重複，請重新輸入!!") : Else : MsgBox("[Floor/Circuit] Duplicate name, please re-enter!!") : End If : Else
                    '------生成表號---------------------------------------------------------------------------------------
                    Dim 表頭 As String : PA = 合約編號_tb.Text : PA2 = 表號_tb.Text
                    conn.Close() : SQL_合約試算控制表_最後一筆資料()
                    If dr.Read() Then : 表頭 = dr("表頭").ToString : Else : 表頭 = "A00" : End If : conn.Close()
                    Dim NUM1 As Integer
                    NUM1 = Double.Parse(Strings.Right(表頭, 2)) + 1
                    If NUM1 < 10 Then : 表頭 = "A" & "0" & NUM1
                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 表頭 = "A" & NUM1 : End If
                    '------新增試算表---------------------------------------------------------------------------------------
                    表頭_tb.Text = 表頭 : PA4 = 樓層_迴路_cb.Text : PA2 = 表號_tb.Text : PA5 = 表頭_tb.Text : SQL_合約試算控制表_新增()
                    '------重新載入下拉清單---------------------------------------------------------------------------------------
                    合約試算控制下拉清單() : Set_合約試算控制表_查詢() : If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Added complete!!") : End If
                End If : conn.Close()
            End If
        End If
    End Sub
    Private Sub 修改樓層_迴圈_bt_Click(sender As Object, e As EventArgs) Handles 修改樓層_迴圈_bt.Click
        PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : PA4 = 樓層_迴路_cb.Text : SQL_合約試算控制表重複查詢()
        If dr.Read() Then
            If 系統語言 = "繁體中文" Then : MsgBox("[樓層/迴路]名稱重複，請重新輸入!!") : Else : MsgBox("[Floor/Circuit] Duplicate name, please re-enter!!") : End If : Else
            PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : PA4 = 樓層_迴路_cb.Text : PA5 = 表頭_tb.Text : SQL_合約試算控制表_樓層迴路修改()
            '------重新載入下拉清單---------------------------------------------------------------------------------------
            合約試算控制下拉清單() : Set_合約試算控制表_查詢() : If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modification complete!!") : End If
        End If : conn.Close()
    End Sub
    Private Sub 材料加入1_bt_Click(sender As Object, e As EventArgs) Handles 材料加入1_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            If 樓層_迴路_cb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("[樓層/迴路]沒有選擇!!") : Else : MsgBox("[Floor/Circuit] No choice!!") : End If : Else
                If 料號1_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇物料!!") : Else : MsgBox("No material selected!!") : End If : Else
                    存檔() : PA = 合約編號_tb.Text : PA2 = 表號_tb.Text : PA6 = 料號1_tb.Text : SQL_合約試算明細表重複查詢()
                    If dr.Read() Then
                        If 系統語言 = "繁體中文" Then : MsgBox("要加入試算表的物料重複，請重新輸入!!")
                        Else : MsgBox("To add material duplicates to the trial balance, please re-enter!!") : End If
                    Else : conn.Close() : SQL_合約試算明細表_新增物料() : Set_試算明細表() : End If : conn.Close()
                End If
            End If
        End If
    End Sub
    Private Sub 直接輸入_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 直接輸入_ch.Click
        直接輸入_ch.Checked = True : 使用計算機_ch.Checked = False
        If 直接輸入_ch.Checked = False And 使用計算機_ch.Checked = True Then : 試算表_dgv.EditMode = DataGridViewEditMode.EditOnF2
        Else : 試算表_dgv.EditMode = DataGridViewEditMode.EditOnEnter : End If
    End Sub
    Private Sub 使用計算機_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 使用計算機_ch.Click
        直接輸入_ch.Checked = False : 使用計算機_ch.Checked = True
        If 直接輸入_ch.Checked = False And 使用計算機_ch.Checked = True Then : 試算表_dgv.EditMode = DataGridViewEditMode.EditOnF2
        Else : 試算表_dgv.EditMode = DataGridViewEditMode.EditOnEnter : End If
    End Sub
    Private Sub 存檔()
        If 合約編號_tb.Text = "" Or 表號_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If
        Else
            PA = 合約編號_tb.Text : PA1 = 表號_tb.Text
            For i As Integer = 0 To 試算表_dgv.Rows.Count - 1
                PA43 = 試算表_dgv.Rows(i).Cells(0).Value : PA2 = 試算表_dgv.Rows(i).Cells(3).Value : PA3 = 試算表_dgv.Rows(i).Cells(4).Value : PA4 = 試算表_dgv.Rows(i).Cells(5).Value
                PA5 = 試算表_dgv.Rows(i).Cells(6).Value : PA6 = 試算表_dgv.Rows(i).Cells(7).Value : PA7 = 試算表_dgv.Rows(i).Cells(8).Value : PA8 = 試算表_dgv.Rows(i).Cells(9).Value
                PA9 = 試算表_dgv.Rows(i).Cells(10).Value : PA10 = 試算表_dgv.Rows(i).Cells(11).Value : PA11 = 試算表_dgv.Rows(i).Cells(12).Value : PA12 = 試算表_dgv.Rows(i).Cells(13).Value
                PA13 = 試算表_dgv.Rows(i).Cells(14).Value : PA14 = 試算表_dgv.Rows(i).Cells(15).Value : PA15 = 試算表_dgv.Rows(i).Cells(16).Value : PA16 = 試算表_dgv.Rows(i).Cells(17).Value
                PA17 = 試算表_dgv.Rows(i).Cells(18).Value : PA18 = 試算表_dgv.Rows(i).Cells(19).Value : PA19 = 試算表_dgv.Rows(i).Cells(20).Value : PA20 = 試算表_dgv.Rows(i).Cells(21).Value
                PA21 = 試算表_dgv.Rows(i).Cells(22).Value : PA22 = 試算表_dgv.Rows(i).Cells(23).Value : PA23 = 試算表_dgv.Rows(i).Cells(24).Value : PA24 = 試算表_dgv.Rows(i).Cells(25).Value
                PA25 = 試算表_dgv.Rows(i).Cells(26).Value : PA26 = 試算表_dgv.Rows(i).Cells(27).Value : PA27 = 試算表_dgv.Rows(i).Cells(28).Value : PA28 = 試算表_dgv.Rows(i).Cells(29).Value
                PA29 = 試算表_dgv.Rows(i).Cells(30).Value : PA30 = 試算表_dgv.Rows(i).Cells(31).Value : PA31 = 試算表_dgv.Rows(i).Cells(32).Value : PA32 = 試算表_dgv.Rows(i).Cells(33).Value
                PA33 = 試算表_dgv.Rows(i).Cells(34).Value : PA34 = 試算表_dgv.Rows(i).Cells(35).Value : PA35 = 試算表_dgv.Rows(i).Cells(36).Value : PA36 = 試算表_dgv.Rows(i).Cells(37).Value
                PA37 = 試算表_dgv.Rows(i).Cells(38).Value : PA38 = 試算表_dgv.Rows(i).Cells(39).Value : PA39 = 試算表_dgv.Rows(i).Cells(40).Value : PA40 = 試算表_dgv.Rows(i).Cells(41).Value
                PA41 = 試算表_dgv.Rows(i).Cells(42).Value : BL1 = 試算表_dgv.Rows(i).Cells(43).Value : PA42 = 試算表_dgv.Rows(i).Cells(44).Value
                SQL_合約試算明細表_修改()
            Next i
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        存檔() : If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Archive complete!!") : End If
    End Sub
    Private Sub 搜尋_bt_Click(sender As Object, e As EventArgs) Handles 搜尋_bt.Click
        If 系統語言 = "繁體中文" Then : PA = InputBox("請輸入關鍵字!!") : Else : PA = InputBox("Please enter key words!!") : End If
        '------對話框(2)-----------
        If PA = "" Then : Else : Set_DGV1載入前設定() : SQL_建築物料請購單申請_物料清單三() : Set_DG1載入後設定() : 料號1_tb.Text = "" : End If
    End Sub
    Private Sub 刪除1_bt_Click(sender As Object, e As EventArgs) Handles 刪除1_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "是否要刪除這筆資料?" : Else : SS = "Do you want to delete this data?" : End If
        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            PA = 合約編號_tb.Text : PA1 = 表號_tb.Text : PA43 = 料號1_tb.Text : PA2 = 表號_tb.Text : SQL_合約試算明細表_刪除()
            If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Delete complete!!") : End If : Set_試算明細表()
        End If
    End Sub

    '-----------------預估利潤存檔-------------------------------------------------------------------------------------------------------------------------------
    Private Sub 預估利潤存檔()
        If 預估利潤_tb.Text = "" Or 預估利潤_tb.Text = "0" Or 利潤比3_tb.Text = "0 %" Then : Else
            If 預估工資總成本_tb.Text = "" Then : 預估工資總成本_tb.Text = "0" : End If : If 預估工資總報價_tb.Text = "" Then : 預估工資總報價_tb.Text = "0" : End If
            If 利潤比1_tb.Text = "" Then : 利潤比1_tb.Text = "0 %" : End If : If 預估材料總成本_tb.Text = "" Then : 預估材料總成本_tb.Text = "0" : End If
            If 預估材料總報價_tb.Text = "" Then : 預估材料總報價_tb.Text = "0" : End If : If 利潤比2_tb.Text = "" Then : 利潤比2_tb.Text = "0 %" : End If
            If 總成本_tb.Text = "" Then : 總成本_tb.Text = "0" : End If : If 總報價_tb.Text = "" Then : 總報價_tb.Text = "0" : End If
            If 利潤比3_tb.Text = "" Then : 利潤比3_tb.Text = "0 %" : End If : If 利潤比4_tb.Text = "" Then : 利潤比4_tb.Text = "0 %" : End If
            If 預估利潤_tb.Text = "" Then : 預估利潤_tb.Text = "0" : End If
            PA37 = 預估工資總成本_tb.Text : PA38 = 預估工資總報價_tb.Text : PA39 = Replace(Replace(利潤比1_tb.Text, " ", ""), "%", "")
            PA40 = 預估材料總成本_tb.Text : PA41 = 預估材料總報價_tb.Text : PA42 = Replace(Replace(利潤比2_tb.Text, " ", ""), "%", "") : PA47 = 預估利潤_tb.Text
            PA43 = 總成本_tb.Text : PA44 = 總報價_tb.Text : PA45 = Replace(Replace(利潤比3_tb.Text, " ", ""), "%", "") : PA46 = Replace(Replace(利潤比4_tb.Text, " ", ""), "%", "")
            SQL_合約控制表預估利潤存檔()
        End If
    End Sub

    '---------------------其他雜項功能--------------------------------------------------------------------------------------------------------------------------
    Private Sub 彙總存檔_bt_Click(sender As Object, e As EventArgs) Handles 彙總存檔_bt.Click
        PA = 合約編號_tb.Text : 預估利潤存檔() : If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Archive complete!!") : End If
    End Sub
    Private Sub 中文大寫3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中文大寫3_ch.Click
        中文大寫3_ch.Checked = True : 中文小寫3_ch.Checked = False
        ITEM4_cb.Items.Clear() : ITEM4_cb.Items.Add("") : ITEM4_cb.Items.Add("壹") : ITEM4_cb.Items.Add("貳") : ITEM4_cb.Items.Add("參") : ITEM4_cb.Items.Add("肆")
        ITEM4_cb.Items.Add("伍") : ITEM4_cb.Items.Add("陸") : ITEM4_cb.Items.Add("柒") : ITEM4_cb.Items.Add("捌") : ITEM4_cb.Items.Add("玖") : ITEM4_cb.Items.Add("拾")
        ITEM4_cb.Items.Add("拾壹") : ITEM4_cb.Items.Add("拾貳") : ITEM4_cb.Items.Add("拾參") : ITEM4_cb.Items.Add("拾肆") : ITEM4_cb.Items.Add("拾伍") : ITEM4_cb.Items.Add("拾陸")
        ITEM4_cb.Items.Add("拾柒") : ITEM4_cb.Items.Add("拾捌") : ITEM4_cb.Items.Add("拾玖") : ITEM4_cb.Items.Add("貳拾")
    End Sub
    Private Sub 中文小寫3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中文小寫3_ch.Click
        中文大寫3_ch.Checked = False : 中文小寫3_ch.Checked = True
        ITEM4_cb.Items.Clear() : ITEM4_cb.Items.Add("") : ITEM4_cb.Items.Add("一") : ITEM4_cb.Items.Add("二") : ITEM4_cb.Items.Add("三") : ITEM4_cb.Items.Add("四")
        ITEM4_cb.Items.Add("五") : ITEM4_cb.Items.Add("六") : ITEM4_cb.Items.Add("七") : ITEM4_cb.Items.Add("八") : ITEM4_cb.Items.Add("九") : ITEM4_cb.Items.Add("十")
        ITEM4_cb.Items.Add("十一") : ITEM4_cb.Items.Add("十二") : ITEM4_cb.Items.Add("十三") : ITEM4_cb.Items.Add("十四") : ITEM4_cb.Items.Add("十五") : ITEM4_cb.Items.Add("十六")
        ITEM4_cb.Items.Add("十七") : ITEM4_cb.Items.Add("十八") : ITEM4_cb.Items.Add("十九") : ITEM4_cb.Items.Add("二十")
    End Sub
    Private Sub 物料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 物料_ch.Click
        物料_ch.Checked = True : BOM_ch.Checked = False : 合約_ch.Checked = False
        物料_p.Visible = True : BOM_p.Visible = False : 合約_p.Visible = False
    End Sub
    Private Sub BOM_ch_CheckedChanged(sender As Object, e As EventArgs) Handles BOM_ch.Click
        物料_ch.Checked = False : BOM_ch.Checked = True : 合約_ch.Checked = False
        物料_p.Visible = False : BOM_p.Visible = True : 合約_p.Visible = False
    End Sub
    Private Sub 合約_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 合約_ch.Click
        物料_ch.Checked = False : BOM_ch.Checked = False : 合約_ch.Checked = True
        物料_p.Visible = False : BOM_p.Visible = False : 合約_p.Visible = True
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        條件選擇 = 合約編號1_cb.Text : Set_合約清單()
    End Sub
    Private Sub 工程期1_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程期1_ch.SelectedIndexChanged
        條件選擇 = 合約編號1_cb.Text : Set_合約清單()
    End Sub
    Private Sub 規格顯示修改_bt_Click(sender As Object, e As EventArgs) Handles 規格顯示修改_bt.Click
        利潤表_ch.Checked = False : Set_報價明細表_dgv_利潤表關閉()
        If 報價明細表_dgv.Columns(43).Visible = False Then : For I As Integer = 43 To 50 : 報價明細表_dgv.Columns(I).Visible = True : Next
        ElseIf 報價明細表_dgv.Columns(43).Visible = True Then : For I As Integer = 43 To 50 : 報價明細表_dgv.Columns(I).Visible = False : Next : End If
        Set_合約報價明細表格式()
    End Sub
    Private Sub 合約編號清單_bt_Click(sender As Object, e As EventArgs) Handles 合約編號清單_bt.Click
        If 合約_dgv.Rows.Count > 2999 Then
            If 系統語言 = "繁體中文" Then : MsgBox("清單數量超過3000個，清通知系統管理員修改程式!!")
            Else : MsgBox("The number of lists exceeds 3000, please notify the system administrator to modify the program!!") : End If : Else
            For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
            For I As Integer = 0 To 合約_dgv.Rows.Count - 1 : PPBB(I) = 合約_dgv("合約編號", I).Value.ToString : NN1 = I : Next
            下拉清單_1.ShowDialog()
            For I As Integer = 0 To 合約_dgv.Rows.Count - 1 : If PPAA = 合約_dgv("合約編號", I).Value.ToString Then : 選取位置 = I : Exit For : End If : Next : 合約讀取()
        End If
    End Sub
    Private Sub 縮放_bt_Click_1(sender As Object, e As EventArgs) Handles 縮放_bt.Click
        If 空間1.Visible = True Then
            A3 = 空間2.Size.Width : B3 = 空間2.Size.Height
            空間1.Visible = False : 空間2.Location = New System.Drawing.Point(A1, B2) : 空間2.Size = New System.Drawing.Point((A2 - A1) + A3, B3)
        Else
            GCM_ERP_SYS.WindowState = 2 : 空間1.Visible = True : 空間2.Location = New System.Drawing.Point(A2, B2) : 空間2.Size = New System.Drawing.Point(A3, B3)
            If 物料_ch.Checked = True Then : 物料_p.Visible = True : BOM_p.Visible = False : 合約_p.Visible = False
            ElseIf BOM_ch.Checked = True Then : 物料_p.Visible = False : BOM_p.Visible = True : 合約_p.Visible = False
            ElseIf 合約_ch.Checked = True Then : 物料_p.Visible = False : BOM_p.Visible = False : 合約_p.Visible = True : End If
        End If
    End Sub
    Private Sub 新建_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 新建_ch.Click
        新建_ch.Checked = True : 改版_ch.Checked = False : 轉移_ch.Checked = False
        合約編號_n_cb.Text = "" : 合約編號1_n_tb.Text = "" : 合約編號2_n_tb.Text = "" : 合約編號3_n_tb.Text = ""
        合約編號_n_cb.Enabled = True : 合約編號1_n_tb.Enabled = True : 合約編號2_n_tb.Enabled = True
        新建_ch.ForeColor = Color.Red : 改版_ch.ForeColor = Color.Black : 轉移_ch.ForeColor = Color.Black
    End Sub
    Private Sub 改版_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 改版_ch.Click
        新建_ch.Checked = False : 改版_ch.Checked = True : 轉移_ch.Checked = False
        合約編號_o_cb.Text = 合約編號_cb.Text : 合約編號_n_cb.Text = 合約編號_cb.Text : 合約編號1_o_tb.Text = 合約編號1_tb.Text : 合約編號1_n_tb.Text = 合約編號1_tb.Text
        合約編號2_o_tb.Text = 合約編號2_tb.Text : 合約編號2_n_tb.Text = 合約編號2_tb.Text : 合約編號3_o_tb.Text = 合約編號3_tb.Text : 合約編號3_n_tb.Text = ""
        合約編號_n_cb.Enabled = False : 合約編號1_n_tb.Enabled = False : 合約編號2_n_tb.Enabled = True
        新建_ch.ForeColor = Color.Black : 改版_ch.ForeColor = Color.Red : 轉移_ch.ForeColor = Color.Black
    End Sub
    Private Sub 轉移_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 轉移_ch.Click
        新建_ch.Checked = False : 改版_ch.Checked = False : 轉移_ch.Checked = True
        合約編號_o_cb.Text = 合約編號_cb.Text : 合約編號_n_cb.Text = 合約編號_cb.Text : 合約編號1_o_tb.Text = 合約編號1_tb.Text : 合約編號1_n_tb.Text = 合約編號1_tb.Text
        合約編號2_o_tb.Text = 合約編號2_tb.Text : 合約編號2_n_tb.Text = 合約編號2_tb.Text : 合約編號3_o_tb.Text = 合約編號3_tb.Text : 合約編號3_n_tb.Text = ""
        合約編號_n_cb.Enabled = False : 合約編號1_n_tb.Enabled = False : 合約編號2_n_tb.Enabled = True
        新建_ch.ForeColor = Color.Black : 改版_ch.ForeColor = Color.Black : 轉移_ch.ForeColor = Color.Red
    End Sub
    Private Sub 啟用批量出貨_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 啟用批量選擇_ch.Click
        For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
            報價明細表_dgv.Rows(i).Cells("S").Value = False : 報價明細表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
        Next
    End Sub
    Private Sub 查閱文件_bt_Click(sender As Object, e As EventArgs) Handles 查閱文件_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            If 簽回檔 = False Then
                If 系統語言 = "繁體中文" Then : MsgBox("該合約還沒有建立報價簽回文件!!") : Else : MsgBox("The contract has not created the quotation sign-back document!!") : End If : Else
                PA1 = 合約編號_tb.Text : PA2 = "報價" : 文件查閱視窗.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 詳細資料1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料1_ch.Click
        If 詳細資料1_ch.Checked = True Then : 詳細資料1_ch.Checked = True : Else : 詳細資料1_ch.Checked = False : End If : Set_BOM表明細()
    End Sub
    Private Sub 詳細資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料_ch.Click
        If 詳細資料_ch.Checked = True Then : 詳細資料_ch.Checked = True : Else : 詳細資料_ch.Checked = False : End If : Set_合約報價明細表1()
    End Sub
    Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click
        If 詳細資料2_ch.Checked = True Then : 詳細資料2_ch.Checked = True : Else : 詳細資料2_ch.Checked = False : End If : Set_合約報價明細表()
    End Sub
    Private Sub 詳細資料3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料3_ch.Click
        If 詳細資料3_ch.Checked = True Then : 詳細資料3_ch.Checked = True : Else : 詳細資料3_ch.Checked = False : End If : Set_試算明細表()
    End Sub
    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
        If 合約_dgv.Visible = True Then
            AA3 = 空間3.Size.Width : BB3 = 空間3.Size.Height : 合約_dgv.Visible = False
            If 不再動作1 = False Then : 空間3.Location = New System.Drawing.Point(AA1, BB2) : 空間3.Size = New System.Drawing.Point((AA2 - AA1) + AA3, BB3) : End If
        Else
            合約_dgv.Visible = True : If 不再動作1 = False Then : 空間3.Location = New System.Drawing.Point(AA2, BB2) : 空間3.Size = New System.Drawing.Point(AA3, BB3) : End If
        End If
    End Sub
    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
        Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
        If 合約_dgv.Visible = False Then : 縮放1_bt.PerformClick() : End If
        If 放大 = True Then
            合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False
            合約_dgv.Columns("工程名稱_中").Visible = False : 合約_dgv.Columns("審核通過").Visible = False : 合約_dgv.Columns("停止").Visible = False
        Else
            合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True
            合約_dgv.Columns("工程名稱_中").Visible = True : 合約_dgv.Columns("審核通過").Visible = True : 合約_dgv.Columns("停止").Visible = True
        End If
    End Sub
    Private Sub 發送_bt_Click(sender As Object, e As EventArgs) Handles 發送_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            PA37 = 合約種類_cb.Text : PA36 = 合約種類_tb.Text : PA = 合約編號_tb.Text
            PA36 = 客戶名稱_tb.Text : PA35 = 負責人_A_cb.Text : PA34 = 工程地點_tb.Text : PA33 = 客戶地址_tb.Text : PA32 = 工程名稱_中_tb.Text : PA31 = 工程名稱_英_tb.Text
            PA30 = 選擇公司_cb.Text : PA29 = 負責人_B_cb.Text : PA28 = 我司地址_tb.Text : PA27 = NUD3.Value : PA26 = 工程款1_nud.Value : PA25 = 工程款2_nud.Value
            PA24 = 工程款3_nud.Value : PA23 = 工程款4_nud.Value : PA22 = 工程款5_nud.Value : PA21 = 工期_nud.Value : PA20 = 逾期_bt.Text : PA19 = 最高扣款_bt.Text
            PA18 = 逾期_英_bt.Text : PA17 = 最高扣款_英_bt.Text : PA16 = 減價_bt.Text : PA15 = 廠區_中文_tb.Text : PA14 = 頁數_bt.Text : PA12 = 合約種類_cb.Text
            PA13 = Strings.Format(立約日期_dtp.Value, "yyyy/MM/dd") : PA44 = 合約編號2_tb.Text : PA45 = 合約編號3_tb.Text : PA46 = 合約編號1_tb.Text : PA47 = 工程期_ch.Text
            BL1 = False : PA10 = 折讓比例_nud.Value : PA9 = 歸零位數_nud.Value : BL2 = 稅前歸零_ch.Checked : BL3 = 稅後歸零_ch.Checked
            If 美金_ch.Checked = True Then : PA11 = "美金" : ElseIf 台幣_ch.Checked = True Then : PA11 = "台幣"
            ElseIf 人民幣_ch.Checked = True Then : PA11 = "人民幣" : ElseIf 印尼盾_ch.Checked = True Then : PA11 = "印尼盾" : End If
            匯率() : PA48 = 匯率1 : SQL_合約修改1()

            If 系統語言 = "繁體中文" Then : MsgBox("報價編輯完成，請通知主管放行!!") : Else
                MsgBox("The quotation editing is completed, please notify the supervisor to release!!")
            End If : 查詢_bt.PerformClick()
        End If
    End Sub
    Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 物料圖_pb.Click
        If IsNothing(物料圖_pb.Image) = False Then : 圖片傳遞 = 物料圖_pb.Image : 圖片放大視窗.ShowDialog() : End If
    End Sub
    Private Sub 物料圖1_pb_Click(sender As Object, e As EventArgs) Handles 物料圖1_pb.Click
        If IsNothing(物料圖1_pb.Image) = False Then : 圖片傳遞 = 物料圖1_pb.Image : 圖片放大視窗.ShowDialog() : End If
    End Sub
    Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
        小間距_ch.Checked = True : 中間距_ch.Checked = False : 中間距_ch.Checked = False : Set_清單1()
    End Sub
    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = True : 中間距_ch.Checked = False : Set_清單1()
    End Sub
    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
        小間距_ch.Checked = False : 中間距_ch.Checked = False : 中間距_ch.Checked = True : Set_清單1()
    End Sub
    Private Sub 工資_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 工資_ch.Click
        If 工資_ch.Checked = True Then : 工資_ch.Checked = True : Else : 工資_ch.Checked = False : End If
        If 報價明細表_dgv.Columns(8).Visible = False Then : Set_報價明細表_dgv_利潤表關閉() : Else : Set_報價明細表_dgv_利潤表開啟() : End If : Set_合約報價明細表格式()
    End Sub
    Private Sub 材料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 材料_ch.Click
        If 材料_ch.Checked = True Then : 材料_ch.Checked = True : Else : 材料_ch.Checked = False : End If
        If 報價明細表_dgv.Columns(8).Visible = False Then : Set_報價明細表_dgv_利潤表關閉() : Else : Set_報價明細表_dgv_利潤表開啟() : End If : Set_合約報價明細表格式()
    End Sub
    Private Sub 利潤表_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 利潤表_ch.Click
        If 利潤表_ch.Checked = True Then : 利潤表_ch.Checked = True : Set_報價明細表_dgv_利潤表開啟() : Else : 利潤表_ch.Checked = False : Set_報價明細表_dgv_利潤表關閉() : End If
        Set_合約報價明細表格式()
    End Sub
    Private Sub 合約改版_bt_Click(sender As Object, e As EventArgs) Handles 合約改版_bt.Click
        If 合約編號_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約，才能進行改版複製!!") : Else : MsgBox("Please select the contract first before you can copy the revised version!!") : End If
        Else
            Dim SS1, SS2, SS3, SS4, SS5 As String
            If 系統語言 = "繁體中文" Then
                SS1 = "合約報價單改版後將發生下列變化，確認下列問題!!"
                SS2 = "1、系統將依照舊版合約報價內容複製出新的合約報價。"
                SS3 = "舊版合約報價將停用關閉，不在後續功能中顯示。"
                SS4 = "3、請購、採購、入庫、出庫、工程等系統中與原編號"
                SS5 = "     相連的資料都將歸檔到新的合約編號中。"
            Else
                SS1 = "The following changes will occur after the revision of the contract quotation, please confirm the following problems!!"
                SS2 = "1. The system will copy the new contract quotation according to the content of the old contract quotation."
                SS3 = "The old version of contract quotes will be disabled and will not be displayed in subsequent functions."
                SS4 = "3. The data connected with the original number in the systems of requisition, procurement, storage, delivery, engineering and other systems will be archived in the new contract number."
                SS5 = ""
            End If
            Dim aa As MsgBoxResult = MsgBox(SS1 & vbCrLf & SS2 & vbCrLf & SS3 & vbCrLf & SS4 & vbCrLf & SS5, MsgBoxStyle.OkCancel) '對話框(3)
            If aa = MsgBoxResult.Ok Then
                    If 視窗4_pl.Visible = False Then
                        新建_ch.Checked = False : 改版_ch.Checked = False : 轉移_ch.Checked = False
                        合約編號_n_cb.Text = "" : 合約編號1_n_tb.Text = "" : 合約編號2_n_tb.Text = "" : 合約編號3_n_tb.Text = ""
                        合約編號_n_cb.Enabled = False : 合約編號1_n_tb.Enabled = False : 合約編號2_n_tb.Enabled = False
                        合約編號_o_cb.Text = 合約編號_cb.Text : 合約編號_n_cb.Text = 合約編號_cb.Text : 合約編號1_o_tb.Text = 合約編號1_tb.Text : 合約編號1_n_tb.Text = 合約編號1_tb.Text
                        合約編號2_o_tb.Text = 合約編號2_tb.Text : 合約編號2_n_tb.Text = 合約編號2_tb.Text : 合約編號3_o_tb.Text = 合約編號3_tb.Text : 合約編號3_n_tb.Text = ""
                        新建_ch.ForeColor = Color.Black : 改版_ch.ForeColor = Color.Black : 轉移_ch.ForeColor = Color.Black
                        視窗4_pl.Location = New System.Drawing.Point(520, 200) : 視窗4_pl.Visible = True : 視窗4_pl.BringToFront()
                    Else : 視窗4_pl.Visible = False : End If
                End If
            End If
    End Sub
    Private Sub 複製轉移_bt_Click(sender As Object, e As EventArgs) Handles 複製轉移_bt.Click
        If 新建_ch.Checked = False And 改版_ch.Checked = False And 轉移_ch.Checked = False Then
            If 系統語言 = "繁體中文" Then : MsgBox("請先選擇報價單複製的情況，才能往下運行!!")
            Else : MsgBox("Please select the case of copying the quotation first, and then you can run down!!") : End If
            新建_ch.ForeColor = Color.Red : 改版_ch.ForeColor = Color.Red : 轉移_ch.ForeColor = Color.Red
        Else
            If 合約編號3_n_tb.Text = "" Then
                If 系統語言 = "繁體中文" Then : MsgBox("請先填寫新合約的序號，才能往下運行!!")
                Else : MsgBox("Please fill in the serial number of the new contract before you can proceed!!") : End If
            Else
                If 合約編號_n_cb.Text = "" Or 合約編號1_n_tb.Text = "" Or 合約編號2_n_tb.Text = "" Or 合約編號3_n_tb.Text = "" Then
                    If 系統語言 = "繁體中文" Then : MsgBox("合約號不完整!!") : Else : MsgBox("Did not choose our company!!") : End If
                Else
                    Dim 合約編號條件 As Boolean = True
                    If 合約編號_n_cb.Text = "" Then
                        If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇我方公司!!") : Else : MsgBox("沒有選擇我方公司!!") : End If : 合約編號條件 = False : End If
                    If 合約編號1_n_tb.Text = "" Then
                        If 系統語言 = "繁體中文" Then : MsgBox("沒有甲方公司英文縮寫!!") : Else : MsgBox("There is no English abbreviation of Party A company!!") : End If : 合約編號條件 = False
                    Else
                        Dim d As Int32
                        For index = 0 To 合約編號1_n_tb.Text.Length - 1
                            d = Asc(合約編號1_n_tb.Text(index))
                            Dim 可能不行 As Boolean = False
                            If (d < 65 Or d > 90) Then : 可能不行 = True : End If   'c變數若在65~90是大寫的英文字母
                            If 可能不行 = True Then
                                If (d < 97 Or d > 122) Then : 可能不行 = True : Else : 可能不行 = False : End If       'c變數若在97~122是小寫的英文字母
                                If 可能不行 = True Then   '然後查表， c變數若在48~57， 表示它是數字，
                                    If (d < 48 Or d > 57) Then
                                        If 系統語言 = "繁體中文" Then : MsgBox("甲方公司簡稱需要英文或是數字，不可以是中文或其他符號!!")
                                        Else : MsgBox("Party A's company abbreviation needs to be in English or numbers, not Chinese or other symbols!!") : End If
                                        合約編號條件 = False : Exit For : End If
                                End If
                            End If
                        Next
                    End If
                    If 合約編號2_n_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有立約日期!!") : Else : MsgBox("There is no covenant date!!") : End If : 合約編號條件 = False
                    End If
                    Dim c As Int32   '然後查表， c變數若在48~57， 表示它是數字，
                    For index = 0 To 合約編號2_n_tb.Text.Length - 1
                        c = Asc(合約編號2_n_tb.Text(index))
                        If c < 48 Or c > 57 Then
                            If 系統語言 = "繁體中文" Then : MsgBox("立約日期只能是數字!!") : Else : MsgBox("Covenant date can only be a number!!") : End If
                            合約編號條件 = False : Exit For : Else
                            If Len(合約編號2_n_tb.Text) <> 6 Then
                                If 系統語言 = "繁體中文" Then
                                    MsgBox("立約日期的格式為YYMMDD (年兩位，月兩位，日兩位)，數字規格不符!!")
                                Else
                                    MsgBox("The format of the contract date is YYMMDD (two digits for the year, two digits for the month, and two digits for the day), and the numerical specifications do not match!!")
                                End If
                                合約編號條件 = False : Exit For : End If
                        End If
                    Next
                    If 合約編號3_n_tb.Text = "" Then
                        If 系統語言 = "繁體中文" Then : MsgBox("沒有合約序號!!") : Else : MsgBox("No contract number!!") : End If : 合約編號條件 = False
                    ElseIf IsNumeric(合約編號3_n_tb.Text) = False Then
                        If 系統語言 = "繁體中文" Then : MsgBox("序號只能是數字!!") : Else : MsgBox("Serial numbers can only be numbers!!") : End If : 合約編號條件 = False
                    End If

                    If 合約編號條件 = False Then : Else
                        If 轉移_ch.Checked = True Then
                            '-----------這裡是以轉移為前提--------------------------------------------------------------------------------------------------------
                            PA = 合約編號_n_cb.Text & "-" & 合約編號1_n_tb.Text & " " & 合約編號2_n_tb.Text & "-" & 合約編號3_n_tb.Text : SQL_合約查詢()
                            If dr.Read() Then
                                If 系統語言 = "繁體中文" Then : MsgBox("系統內已有相同單號，無法直接進行合約號轉移!!")
                                Else : MsgBox("The same order number already exists in the system, and the contract number cannot be transferred directly!!") : End If : Else
                                PA17 = 合約編號_tb.Text : PA18 = 合約編號_n_cb.Text & "-" & 合約編號1_n_tb.Text & " " & 合約編號2_n_tb.Text & "-" & 合約編號3_n_tb.Text
                                PA19 = 合約編號1_n_tb.Text : PA20 = 合約編號2_n_tb.Text : PA21 = 合約編號3_n_tb.Text : PA22 = 合約編號_n_cb.Text
                                SQL_合約編號修改() : 視窗4_pl.Visible = False
                                If 系統語言 = "繁體中文" Then : MsgBox("合約複製與資料轉移完成!!") : Else : MsgBox("Contract copy and data transfer completed!!") : End If
                                Set_合約清單()
                            End If
                        Else
                            '-----------這裡是以新建為前提--------------------------------------------------------------------------------------------------------
                            PA = 合約編號_n_cb.Text & "-" & 合約編號1_n_tb.Text & " " & 合約編號2_n_tb.Text & "-" & 合約編號3_n_tb.Text : SQL_合約查詢()
                            If dr.Read() Then
                                If 系統語言 = "繁體中文" Then : MsgBox("系統內已有相同單號，無法用這個號碼生成新的合約!!")
                                Else : MsgBox("The same order number already exists in the system, and this number cannot be used to generate a new contract!!") : End If
                            Else
                                資料數 = 報價總表_dgv.Rows.Count + 報價係數_dgv.Rows.Count + (報價明細表_dgv.Rows.Count * 2) + 報價總表_dgv.Rows.Count
                                進度條視窗.Show()

                                PA1 = 合約編號_n_cb.Text & "-" & 合約編號1_n_tb.Text & " " & 合約編號2_n_tb.Text & "-" & 合約編號3_n_tb.Text
                                PA = 合約編號_tb.Text : PA2 = 合約編號_n_cb.Text : PA3 = 合約編號1_n_tb.Text : PA4 = 合約編號2_n_tb.Text : PA5 = 合約編號3_n_tb.Text
                                If 改版_ch.Checked = True Then
                                    BL1 = True : SQL_合約停用()                                                                     '-----原合約停用-------------
                                    SQL_請購單改合約號()                                                                             '-----請採購合約號變更-------
                                    '暫無倉儲SQL掛合約號                                                                             '-----倉儲合約號變更---------
                                    SQL_工程系統改合約號()                                                                           '-----工程合約號變更---------
                                    For i As Integer = 0 To 圖庫清單_dgv.Rows.Count - 1
                                        圖片庫 = 圖庫清單_dgv.Rows(i).Cells("資料庫").Value.ToString : SQL_圖庫系統改合約號()        '-----圖庫合約號變更---------
                                    Next
                                ElseIf 新建_ch.Checked = True Then
                                    'BL1 = True : SQL_合約停用()
                                End If

                                Dim 數量, 位置(20), 總表位置(20) As Integer : Dim 新編號, 舊編號, 連動(20) As String : 數量 = 0
                                新編號 = PA1 : 舊編號 = PA
                                PA = 新編號 : 選擇項1_tb.Text = "" : 複製報價 = True
                                '-----取出舊總表連動位置--------------------------------------------------------------------
                                For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                                    MyModule1.計算顯示2() : MyModule1.進度條1()
                                    If 報價總表_dgv.Rows(i).Cells("明細連動").Value.ToString() <> "" Then
                                        總表位置(數量) = i
                                        For ii As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                                            If 報價總表_dgv.Rows(i).Cells("明細連動").Value.ToString() = 報價明細表_dgv.Rows(ii).Cells("流水號").Value.ToString() Then
                                                位置(數量) = ii : Exit For
                                            End If
                                        Next : 數量 += 1
                                    End If
                                Next
                                '-----生成新的報價係數----------------------------------------------------------------------
                                For i As Integer = 0 To 報價係數_dgv.Rows.Count - 1
                                    MyModule1.計算顯示2() : MyModule1.進度條1()
                                    PA2 = 報價係數_dgv("項目", i).Value.ToString : PA3 = 報價係數_dgv("係數", i).Value.ToString : PA4 = 報價係數_dgv("單位", i).Value.ToString
                                    SQL_合約報價係數資料不重複() : If dr.Read Then : Else : 係數流水號() : SQL_合約報價係數_新增() : End If
                                Next : Set_合約報價係數() : 合約_lb.Text = "合約"
                                '-----生成新的合約明細----------------------------------------------------------------------
                                For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                                    MyModule1.計算顯示2() : MyModule1.進度條1()
                                    PA2 = 報價明細表_dgv.Rows(i).Cells("ITEM").Value.ToString() : PA3 = 報價明細表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString()
                                    PA4 = 報價明細表_dgv.Rows(i).Cells("UNIT").Value.ToString() : PA5 = 報價明細表_dgv.Rows(i).Cells("QTY").Value.ToString()
                                    PA6 = 報價明細表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString() : PA7 = 報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString()
                                    PA8 = 報價明細表_dgv.Rows(i).Cells("REMARKS").Value.ToString()
                                    PA10 = 報價明細表_dgv.Rows(i).Cells("實際數量").Value.ToString() : PA11 = 報價明細表_dgv.Rows(i).Cells("工資成本單價").Value.ToString()
                                    PA12 = 報價明細表_dgv.Rows(i).Cells("工資報價單價").Value.ToString() : PA13 = 報價明細表_dgv.Rows(i).Cells("材料成本單價").Value.ToString()
                                    PA14 = 報價明細表_dgv.Rows(i).Cells("材料報價單價").Value.ToString() : PA15 = 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString()
                                    PA16 = 報價明細表_dgv.Rows(i).Cells("材料係數").Value.ToString() : BL = 報價明細表_dgv.Rows(i).Cells("不計").Value
                                    BL1 = 報價明細表_dgv.Rows(i).Cells("D1").Value : BL2 = 報價明細表_dgv.Rows(i).Cells("D2").Value : BL3 = 報價明細表_dgv.Rows(i).Cells("D3").Value
                                    BL4 = 報價明細表_dgv.Rows(i).Cells("D4").Value : BL5 = 報價明細表_dgv.Rows(i).Cells("D5").Value : BL6 = 報價明細表_dgv.Rows(i).Cells("D6").Value
                                    BL7 = 報價明細表_dgv.Rows(i).Cells("D7").Value : BL8 = 報價明細表_dgv.Rows(i).Cells("D8").Value : BL9 = 報價明細表_dgv.Rows(i).Cells("預設").Value
                                    明細表新增資料()
                                Next : 合約編號_tb.Text = 新編號 : Set_合約報價明細表()
                                '-----算出新明細連動編號--------------------------------------------------------------------
                                For i As Integer = 0 To 數量
                                    For ii As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                                        If ii = 位置(i) Then
                                            連動(i) = 報價明細表_dgv.Rows(ii).Cells("流水號").Value.ToString() : Exit For
                                        End If
                                    Next
                                Next
                                '-----生成新的合約總表----------------------------------------------------------------------
                                For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                                    MyModule1.計算顯示2() : MyModule1.進度條1() : PA = 合約編號_tb.Text
                                    PA2 = 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString() : PA3 = 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString()
                                    PA4 = 報價總表_dgv.Rows(i).Cells("UNIT").Value.ToString() : PA5 = 報價總表_dgv.Rows(i).Cells("QTY").Value.ToString()
                                    PA6 = 報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString() : PA7 = 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString()
                                    PA8 = 報價總表_dgv.Rows(i).Cells("REMARKS").Value.ToString()
                                    For ii As Integer = 0 To 數量
                                        If 總表位置(ii) = i Then
                                            報價總表_dgv.Rows(i).Cells("明細連動").Value = 連動(ii) : PA10 = 連動(ii) : Exit For
                                        Else
                                            PA10 = ""
                                        End If
                                    Next
                                    合約報價總表_最後一筆資料()

                                    SQL_合約報價總表_最後一筆排序()
                                    If dr.Read() Then : PA1 = dr("排序") : Else : PA1 = "000" : End If : conn.Close() : NUM1 = Double.Parse(PA1) + 1
                                    If NUM1 < 10 Then : PA1 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA1 = "0" & NUM1 : ElseIf NUM1 > 99 Then : PA1 = NUM1 : End If
                                    SQL_合約報價總表_新增資料()
                                Next : Set_合約報價總表() : 報價總表_dgv_自動計算()
                                '-----生成新的合約控制----------------------------------------------------------------------
                                合約_dgv.Enabled = False : 合約編號2_tb.Enabled = True : 合約編號3_tb.Enabled = True
                                If 新建_ch.Checked = True Then : 預設資料1() : End If
                                合約編號_cb.Text = 合約編號_n_cb.Text : 合約編號1_tb.Text = 合約編號1_n_tb.Text : 合約編號2_tb.Text = 合約編號2_n_tb.Text : 合約編號3_tb.Text = 合約編號3_n_tb.Text
                                存檔_tb.PerformClick() : 複製報價 = False
                                If 改版_ch.Checked = True Then
                                    PA = 合約編號_o_cb.Text & "-" & 合約編號1_o_tb.Text & " " & 合約編號2_o_tb.Text & "-" & 合約編號3_o_tb.Text
                                    SQL_合約控制表讀取()
                                    If dr.Read Then
                                        PA1 = dr("報價說明").ToString : PA11 = dr("驗收開始日期").ToString : PA12 = dr("驗收完成日期").ToString
                                        PA14 = dr("驗收備註").ToString : PA16 = dr("保固地址").ToString : PA18 = dr("結案備註").ToString
                                        PA19 = dr("工程主管").ToString : PA20 = dr("工地驗收備註").ToString : PA32 = dr("簽回檔圖庫").ToString
                                        If dr("追加減").ToString = "" Then : PA2 = "0" : Else : PA2 = dr("追加減").ToString : End If
                                        If dr("結算金額").ToString = "" Then : PA3 = "0" : Else : PA3 = dr("結算金額").ToString : End If
                                        If dr("已請款").ToString = "" Then : PA4 = "0" : Else : PA4 = dr("已請款").ToString : End If
                                        If dr("剩餘款").ToString = "" Then : PA5 = "0" : Else : PA5 = dr("剩餘款").ToString : End If
                                        If dr("預付款").ToString = "" Then : PA6 = "0" : Else : PA6 = dr("預付款").ToString : End If
                                        If dr("到貨款").ToString = "" Then : PA7 = "0" : Else : PA7 = dr("到貨款").ToString : End If
                                        If dr("施工款").ToString = "" Then : PA8 = "0" : Else : PA8 = dr("施工款").ToString : End If
                                        If dr("驗收款").ToString = "" Then : PA9 = "0" : Else : PA9 = dr("驗收款").ToString : End If
                                        If dr("保留款").ToString = "" Then : PA10 = "0" : Else : PA10 = dr("保留款").ToString : End If
                                        If dr("保固期限").ToString = "" Then : PA15 = "0" : Else : PA15 = dr("保固期限").ToString : End If
                                        If dr("預估工資成本").ToString = "" Then : PA21 = "0" : Else : PA21 = dr("預估工資成本").ToString : End If
                                        If dr("預估工資報價").ToString = "" Then : PA22 = "0" : Else : PA22 = dr("預估工資報價").ToString : End If
                                        If dr("工資利潤比").ToString = "" Then : PA23 = "0" : Else : PA23 = dr("工資利潤比").ToString : End If
                                        If dr("預估材料成本").ToString = "" Then : PA24 = "0" : Else : PA24 = dr("預估材料成本").ToString : End If
                                        If dr("預估材料報價").ToString = "" Then : PA25 = "0" : Else : PA25 = dr("預估材料報價").ToString : End If
                                        If dr("材料利潤比").ToString = "" Then : PA26 = "0" : Else : PA26 = dr("材料利潤比").ToString : End If
                                        If dr("總成本").ToString = "" Then : PA27 = "0" : Else : PA27 = dr("總成本").ToString : End If
                                        If dr("總報價").ToString = "" Then : PA28 = "0" : Else : PA28 = dr("總報價").ToString : End If
                                        If dr("利潤比1").ToString = "" Then : PA29 = "0" : Else : PA29 = dr("利潤比1").ToString : End If
                                        If dr("利潤比2").ToString = "" Then : PA30 = "0" : Else : PA30 = dr("利潤比2").ToString : End If
                                        If dr("預估利潤").ToString = "" Then : PA31 = "0" : Else : PA31 = dr("預估利潤").ToString : End If
                                        If IsDBNull(dr("驗收結果")) = True Then : PA13 = "False" : Else : PA13 = dr("驗收結果") : End If
                                        If IsDBNull(dr("合約停止")) = True Then : PA17 = "False" : Else : PA17 = dr("合約停止") : End If
                                        If IsDBNull(dr("報價簽回")) = True Then : PA33 = "False" : Else : PA33 = dr("報價簽回") : End If
                                        If IsDBNull(dr("合約簽回")) = True Then : PA34 = "False" : Else : PA34 = dr("合約簽回") : End If
                                        If IsDBNull(dr("請款簽回")) = True Then : PA35 = "False" : Else : PA35 = dr("請款簽回") : End If
                                        If IsDBNull(dr("驗收簽回")) = True Then : PA36 = "False" : Else : PA36 = dr("驗收簽回") : End If
                                        If IsDBNull(dr("保固簽回")) = True Then : PA37 = "False" : Else : PA37 = dr("保固簽回") : End If
                                        If IsDBNull(dr("報價放行")) = True Then : PA38 = "False" : Else : PA38 = dr("報價放行") : End If
                                        If IsDBNull(dr("其他文件")) = True Then : PA39 = "False" : Else : PA39 = dr("其他文件") : End If
                                    End If
                                    PA = 合約編號_n_cb.Text & "-" & 合約編號1_n_tb.Text & " " & 合約編號2_n_tb.Text & "-" & 合約編號3_n_tb.Text : SQL_合約控制表_改版修正()
                                End If
                                PA = "" : 視窗4_pl.Visible = False : MyModule1.計算顯示3()
                                If 系統語言 = "繁體中文" Then : MsgBox("合約複製與資料轉移完成!!") : Else : MsgBox("Duplikasi kontrak dan transfer data selesai!!") : End If
                                Set_合約清單()
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 合約編號2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號2_cb.SelectedIndexChanged
        Set_合約清單1()
    End Sub
    Private Sub 查詢1_bt_Click(sender As Object, e As EventArgs) Handles 查詢1_bt.Click
        If 系統語言 = "繁體中文" Then : MsgBox("功能製作中!!") : Else : MsgBox("Feature in progress!!") : End If
    End Sub
    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
        For i As Integer = 0 To 報價明細表2_dgv.Rows.Count - 1 : 報價明細表2_dgv.Rows(i).Cells("選擇").Value = True : 報價明細表2_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen : Next i
    End Sub
    Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
        For i As Integer = 0 To 報價明細表2_dgv.Rows.Count - 1 : 報價明細表2_dgv.Rows(i).Cells("選擇").Value = False : 報價明細表2_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : Next i
    End Sub

    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
    Dim OldX, OldY As Long : Dim drag As Boolean
    Private Sub 編輯係數_bt_Click(sender As Object, e As EventArgs) Handles 編輯係數_bt.Click
        OY2 = 報價明細表_dgv.Size.Height
        If 視窗1_pl.Visible = False Then : 視窗1_pl.Location = New System.Drawing.Point(425, 245) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : End If
        If OX1 = 報價係數_dgv.Size.Width And OY1 = 報價係數_dgv.Size.Height Then
            報價係數_dgv.Size = New System.Drawing.Point(OX1, OY1 + OY2) : Else : 報價係數_dgv.Size = New System.Drawing.Point(OX1, OY1) : End If
    End Sub
    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel1_bt.Click
        OY2 = 報價明細表_dgv.Size.Height
        If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : End If
        If OX1 = 報價係數_dgv.Size.Width And OY1 = 報價係數_dgv.Size.Height Then
            報價係數_dgv.Size = New System.Drawing.Point(OX1, OY1 + OY2) : Else : 報價係數_dgv.Size = New System.Drawing.Point(OX1, OY1) : End If
    End Sub
    Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
        If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else
            視窗2_pl.Visible = False : End If
    End Sub
    Private Sub CanceL3_bt_Click(sender As Object, e As EventArgs) Handles CanceL3_bt.Click
        If 視窗3_pl.Visible = False Then : 視窗3_pl.Visible = True : 視窗3_pl.BringToFront() : Else
            視窗3_pl.Visible = False : End If
    End Sub
    Private Sub CanceL4_bt_Click(sender As Object, e As EventArgs) Handles CanceL4_bt.Click
        If 視窗4_pl.Visible = False Then : 視窗4_pl.Visible = True : 視窗4_pl.BringToFront() : Else
            視窗4_pl.Visible = False : End If
    End Sub
    Private Sub 視窗1_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗1_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseMove
        If drag Then : 視窗1_pl.Left = 視窗1_pl.Left + e.X - OldX : 視窗1_pl.Top = 視窗1_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗1_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseUp
        drag = False
    End Sub
    Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
        If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
        drag = False
    End Sub
    Private Sub 視窗3_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗3_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseMove
        If drag Then : 視窗3_pl.Left = 視窗3_pl.Left + e.X - OldX : 視窗3_pl.Top = 視窗3_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗3_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseUp
        drag = False
    End Sub
    Private Sub 視窗4_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗4_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseMove
        If drag Then : 視窗4_pl.Left = 視窗4_pl.Left + e.X - OldX : 視窗4_pl.Top = 視窗4_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗4_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseUp
        drag = False
    End Sub

    '----------------------列印成excel---------------------------------------------------------------------------------------------------------
    Private Sub 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇合約!!") : Else : MsgBox("No option contract!!") : End If : Else
            XN1 = 0
            xlApp = CType(CreateObject("Excel.Application"), Application)
            xlApp.Visible = True
            xlApp.DisplayAlerts = True
            xlApp.Application.WindowState = xlMaximized
            xlBook = xlApp.Workbooks.Add
            '----------------------------------------------------------------------------------------------------------------------
            xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "明細表"
            xlBook.Activate() : xlSheet.Activate()

            xlSheet.Cells(2, 1) = "QUOTATION" : xlSheet.Cells(3, 7) = "NO : " & 合約編號_tb.Text
            xlSheet.Cells(3, 1) = "業主名稱 : " & 客戶名稱_tb.Text : xlSheet.Cells(4, 7) = "Date : " & Strings.Format(Today(), "yyyy/MM/dd")
            xlSheet.Cells(4, 1) = "工程項目 : " & 工程名稱_中_tb.Text & vbCrLf & 工程名稱_英_tb.Text
            xlSheet.Cells(5, 1) = "ITEM" : xlSheet.Cells(5, 2) = "DESCRIPTION" : xlSheet.Cells(5, 3) = "UNIT"
            xlSheet.Cells(5, 4) = "Q'TY" : xlSheet.Cells(5, 9) = "REMARKS"
            If 工材分離_ch.Checked = False Then : xlSheet.Cells(5, 5) = "UNIT PRICE" & vbCrLf & "" & 幣別 : xlSheet.Cells(5, 7) = "AMOUNT" & vbCrLf & "" & 幣別 : Else
                xlSheet.Cells(5, 5) = "工資報價單價" & vbCrLf & "Hrga satuan penawaran gaji" : xlSheet.Cells(5, 6) = "工資報價復價" & vbCrLf & "Total harga upah"
                xlSheet.Cells(5, 7) = "材料報價單價" & vbCrLf & "Harga satuan kutipan material" : xlSheet.Cells(5, 8) = "材料報價複價" & vbCrLf & "Harga total kuotasi material"
            End If
            For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1
                If 報價明細表_dgv.Rows(i).Cells("ITEM").Value.ToString() = "*" Then : Else
                    xlSheet.Cells(6 + i, 1) = 報價明細表_dgv.Rows(i).Cells("ITEM").Value.ToString()
                End If
                xlSheet.Cells(6 + i, 2) = 報價明細表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString()
                xlSheet.Cells(6 + i, 3) = 報價明細表_dgv.Rows(i).Cells("UNIT").Value.ToString()
                If CInt(報價明細表_dgv.Rows(i).Cells("QTY").Value.ToString()) = 0 Then : xlSheet.Cells(6 + i, 4) = "" : Else
                    xlSheet.Cells(6 + i, 4) = 報價明細表_dgv.Rows(i).Cells("QTY").Value.ToString() : End If
                xlSheet.Cells(6 + i, 9) = 報價明細表_dgv.Rows(i).Cells("REMARKS").Value.ToString()
                If 工材分離_ch.Checked = False Then
                    If CInt(報價明細表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString()) = 0 Then : xlSheet.Cells(6 + i, 5) = "" : Else
                        xlSheet.Cells(6 + i, 5) = 報價明細表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString() : End If
                    If CInt(報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString()) = 0 Then : xlSheet.Cells(6 + i, 7) = "" : Else
                        xlSheet.Cells(6 + i, 7) = 報價明細表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString() : End If
                Else
                    If CInt(報價明細表_dgv.Rows(i).Cells("工資報價單價").Value.ToString()) = 0 Then : xlSheet.Cells(6 + i, 5) = "" : Else
                        xlSheet.Cells(6 + i, 5) = 報價明細表_dgv.Rows(i).Cells("工資報價單價").Value.ToString() : End If
                    If CInt(報價明細表_dgv.Rows(i).Cells("工資報價後價").Value.ToString()) = 0 Then : xlSheet.Cells(6 + i, 6) = "" : Else
                        xlSheet.Cells(6 + i, 6) = 報價明細表_dgv.Rows(i).Cells("工資報價後價").Value.ToString() : End If
                    If CInt(報價明細表_dgv.Rows(i).Cells("材料報價單價").Value.ToString()) = 0 Then : xlSheet.Cells(6 + i, 7) = "" : Else
                        xlSheet.Cells(6 + i, 7) = 報價明細表_dgv.Rows(i).Cells("材料報價單價").Value.ToString() : End If
                    If CInt(報價明細表_dgv.Rows(i).Cells("材料報價後價").Value.ToString()) = 0 Then : xlSheet.Cells(6 + i, 8) = "" : Else
                        xlSheet.Cells(6 + i, 8) = 報價明細表_dgv.Rows(i).Cells("材料報價後價").Value.ToString() : End If
                End If
                XN2 = 6 + i
            Next
            AA(xlApp, xlSheet)
            If 合約編號_cb.Text = "HX" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet)
            '----------------------------------------------------------------------------------------------------------------------
            xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "報價單"
            xlBook.Activate() : xlSheet.Activate()

            xlSheet.Cells(2, 1) = "QUOTATION" : xlSheet.Cells(4, 6) = "NO : " & 合約編號_tb.Text
            xlSheet.Cells(4, 1) = "業主名稱 : " & 客戶名稱_tb.Text : xlSheet.Cells(5, 6) = "Date : " & Strings.Format(Today(), "yyyy/MM/dd")
            xlSheet.Cells(5, 1) = "工程項目 : " & 工程名稱_中_tb.Text & vbCrLf & 工程名稱_英_tb.Text
            xlSheet.Cells(6, 1) = "ITEM" : xlSheet.Cells(6, 2) = "DESCRIPTION" : xlSheet.Cells(6, 3) = "UNIT" : xlSheet.Cells(6, 5) = "UNIT PRICE" & vbCrLf & "" & 幣別
            xlSheet.Cells(6, 6) = "AMOUNT" & vbCrLf & "" & 幣別 : xlSheet.Cells(6, 4) = "Q'TY" : xlSheet.Cells(6, 7) = "REMARKS"
            For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                If 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString() = "*" Or 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString() = "@" Or
                   報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString() = "^" Then : Else
                    xlSheet.Cells(7 + i, 1) = 報價總表_dgv.Rows(i).Cells("ITEM").Value.ToString()
                End If
                xlSheet.Cells(7 + i, 2) = 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString()
                xlSheet.Cells(7 + i, 3) = 報價總表_dgv.Rows(i).Cells("UNIT").Value.ToString()
                If CInt(報價總表_dgv.Rows(i).Cells("QTY").Value.ToString()) = 0 Then : xlSheet.Cells(7 + i, 4) = "" : Else
                    xlSheet.Cells(7 + i, 4) = 報價總表_dgv.Rows(i).Cells("QTY").Value.ToString() : End If
                If CInt(報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString()) = 0 Then : xlSheet.Cells(7 + i, 5) = "" : Else
                    xlSheet.Cells(7 + i, 5) = 報價總表_dgv.Rows(i).Cells("UNIT PRICE" & 幣別).Value.ToString() : End If
                If CInt(報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString()) = 0 Then : xlSheet.Cells(7 + i, 6) = "" : Else
                    xlSheet.Cells(7 + i, 6) = 報價總表_dgv.Rows(i).Cells("AMOUNT" & 幣別).Value.ToString() : End If
                xlSheet.Cells(7 + i, 7) = 報價總表_dgv.Rows(i).Cells("REMARKS").Value.ToString()
                XN1 = 8 + i
            Next
            xlSheet.Cells(XN1 + 1, 1) = "報價說明Offer descriptions：" : xlSheet.Cells(XN1 + 2, 1) = 報價說明_tb.Text
            xlSheet.Cells(XN1 + 3, 1) = "客戶確認   (簽名，蓋章)" : xlSheet.Cells(XN1 + 3, 3) = "核准" : xlSheet.Cells(XN1 + 3, 7) = "經辦人"
            xlSheet.Cells(XN1 + 4, 1) = "Customer confirmation ( signature ) : " : xlSheet.Cells(XN1 + 4, 3) = "Approved : " : xlSheet.Cells(XN1 + 4, 7) = "報價說明Offer descriptions："
            xlSheet.Cells(XN1 + 5, 7) = gUserName
            xlSheet.Cells(XN1 + 6, 1) = "_________________________________" : xlSheet.Cells(XN1 + 6, 3) = "_________________________________"
            xlSheet.Cells(XN1 + 6, 7) = "_________________________________"
            BB(xlApp, xlSheet)
            If 合約編號_cb.Text = "HX" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet)
            '----------------------------------------------------------------------------------------------------------------------
            xlApp.Sheets(3).Delete
            xlSheet.PageSetup.PrintArea = ""
            xlApp.Cells.Select()
            xlApp.Application.WindowState = xlMinimized
            If 系統語言 = "繁體中文" Then : MsgBox("列印完成!!") : Else : MsgBox("Printing is complete!!") : End If
        End If
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Range("A2:I2").Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95
        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30 : xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 20
        xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 35 : xlSheet.Rows("5:5").Select : myExcel.Selection.RowHeight = 65
        xlSheet.Rows("6:" & XN2).Select : myExcel.Selection.RowHeight = 35
        If 工材分離_ch.Checked = True Then
            xlSheet.Range("E5:H6").Select()
            With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 8 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
                .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        End If

        xlSheet.Range("A5:I5").Select()
        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0 : End With
        xlSheet.Range("A4").Select()
        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 6
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Columns("C:D").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 40
        xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 18.5
        If 工材分離_ch.Checked = False Then
            xlSheet.Columns("G:H").Select : myExcel.Selection.ColumnWidth = 9 : xlSheet.Columns("E:F").Select : myExcel.Selection.ColumnWidth = 9
            xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 50
        Else
            xlSheet.Columns("G:H").Select : myExcel.Selection.ColumnWidth = 13 : xlSheet.Columns("E:F").Select : myExcel.Selection.ColumnWidth = 13
            xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 50
        End If

        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: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
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("A4:F4").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
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("G3:I3").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
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("G4:I4").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
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

        If 工材分離_ch.Checked = False Then
            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("G5:H5").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
        End If
        xlSheet.Range("C5:H5").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : End With

        For i As Integer = 6 To XN2
            xlSheet.Range("E" & i & ":F" & i).Select()
            If 工材分離_ch.Checked = False Then
                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 : End If
            xlSheet.Range("G" & i & ":H" & i).Select()
            If 工材分離_ch.Checked = False Then
                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 : End If
        Next
        xlSheet.Range("E6:H" & XN2).Select()
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : End With
        myExcel.Selection.NumberFormatLocal = "#,##0_ "

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

        xlSheet.Range("I6:I" & XN2).Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Range("B6:B" & XN2).Select()
        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Range("A5:I5").Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A6:I" & XN2).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        xlSheet.Range("J17").Select() : myExcel.ActiveWindow.DisplayGridlines = False

        xlSheet.Range("A4:F4").Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("A5:I5").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0
            .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : End With
        xlSheet.Range("A6:I" & XN2).Select()
        With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : End With
    End Sub
    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Rows("2:2").Select
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95 : xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30
        xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 20 : xlSheet.Rows("5:5").Select : myExcel.Selection.RowHeight = 35
        xlSheet.Rows("6:6").Select : myExcel.Selection.RowHeight = 40 : xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 6
        xlSheet.Rows("7:" & XN1).Select : myExcel.Selection.RowHeight = 35

        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 60 : xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 6
        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 18
        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 18 : xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 18.5
        xlSheet.Range("A2:G2").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("A4:E4").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
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("A5:E5").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
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("F4:G4").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
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("F5:G5").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
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

        xlSheet.Range("A6:A" & XN1 - 1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("C6:D" & XN1 - 1).Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("E6: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
        xlSheet.Range("A6:G6").Select()
        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorLight2
            .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : 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) : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A7:G" & XN1 - 1).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) : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

        xlSheet.Range("A" & XN1 + 1 & ":G" & XN1 + 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
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("A" & XN1 + 2 & ":G" & XN1 + 2).Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

        xlSheet.Range("A" & XN1 + 1 & ":G" & XN1 + 2).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        xlSheet.Rows(XN1 + 2 & ":" & XN1 + 2).Select : myExcel.Selection.RowHeight = 100
        xlSheet.Rows(XN1 + 3 & ":" & XN1 + 3).Select : myExcel.Selection.RowHeight = 30
        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlBottom : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Rows(XN1 + 5 & ":" & XN1 + 5).Select : myExcel.Selection.RowHeight = 80
        xlSheet.Range("H17").Select() : myExcel.ActiveWindow.DisplayGridlines = False
        xlSheet.Range("E7:F" & XN1 - 1).Select() : myExcel.Selection.NumberFormatLocal = "#,##0_ "
        xlSheet.Range("A5:E5").Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("A6:G6").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("A7:G" & XN1 - 1).Select()
        With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("A" & XN1 + 2 & ":G" & XN1 + 2).Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
    End Sub
    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox1.Image)
        xlSheet.Range("A1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 93
        myExcel.Selection.ShapeRange.IncrementLeft(0)
        myExcel.Selection.ShapeRange.IncrementTop(0)
    End Sub
    Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox2.Image)
        xlSheet.Range("A1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 93
        myExcel.Selection.ShapeRange.IncrementLeft(0)
        myExcel.Selection.ShapeRange.IncrementTop(0)
    End Sub
    Private Sub FF(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        myExcel.Application.PrintCommunication = False : With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$5" : .PrintTitleColumns = "" : End With
        myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .PrintHeadings = False : .PrintGridlines = False : .CenterHorizontally = True : .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
End Class