GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/未整理與未使用/成本系統管理/機構組件零件成本建...

Option Strict Off
Public Class 機構組件零件成本建檔
    ReadOnly ds, ds1, ds2 As New DataSet
    Private Sub DGV1讀取前設定()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub DGV1讀取後設定()
        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub 讀取成本資料表()
        If CheckBox8.Checked = True Then
            If ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 ORDER BY 科目, 類型"
            Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                   "') ORDER BY 科目, 類型"
            End If
        Else
            If ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
            Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                   "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
            End If
        End If
        DGV1讀取後設定()
    End Sub
    Private Sub 下拉表單資料載入()
        ConnOpen()
        SQL1 = "SELECT 品牌 FROM 品牌資料"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        ComboBox1.Items.Clear()
        While (dr.Read())
            ComboBox1.Items.Add(dr("品牌"))
        End While
        conn.Close()

        ConnOpen()
        SQL1 = "SELECT  供應商 FROM 供應商資料表"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        ComboBox2.Items.Clear()
        While (dr.Read())
            ComboBox2.Items.Add(dr("供應商"))
        End While
        conn.Close()

        If ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then
            ComboBox3.Text = "-請選擇-"
            ConnOpen()
            SQL1 = "SELECT  類型 FROM 機構成本科目類型表"
        Else
            ConnOpen()
            SQL1 = "SELECT  類型 FROM 機構成本科目類型表 WHERE (科目 ='" & ComboBox3.Text & "')"
        End If
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        ComboBox4.Items.Clear()
        While (dr.Read())
            ComboBox4.Items.Add(dr("類型"))
        End While
        conn.Close()
    End Sub
    Private Sub 格式設定()
        Button1.Enabled = False : Button2.Enabled = False : Button3.Enabled = False
    End Sub
    Private Sub Set_grid1()
        DataGridView1.Columns(0).Width = 75 : DataGridView1.Columns(1).Width = 65 : DataGridView1.Columns(2).Width = 75 : DataGridView1.Columns(3).Width = 130
        DataGridView1.Columns(4).Width = 180 : DataGridView1.Columns(5).Width = 240 : DataGridView1.Columns(6).Width = 300 : DataGridView1.Columns(7).Width = 85
        DataGridView1.Columns(8).Width = 80 : DataGridView1.Columns(9).Width = 65
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString : ComboBox1.Text = DataGridView1(1, e.RowIndex).Value.ToString
            ComboBox2.Text = DataGridView1(2, e.RowIndex).Value.ToString : ComboBox3.Text = DataGridView1(3, e.RowIndex).Value.ToString
            ComboBox4.Text = DataGridView1(4, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView1(5, e.RowIndex).Value.ToString
            TextBox3.Text = DataGridView1(6, e.RowIndex).Value.ToString : ComboBox5.Text = DataGridView1(9, e.RowIndex).Value.ToString
            TEXT1 = DataGridView1(7, e.RowIndex).Value.ToString : TextBox4.Text = Format(Val(TEXT1), "#,##0.0")
            TEXT1 = DataGridView1(8, e.RowIndex).Value.ToString : TextBox5.Text = Format(Val(TEXT1), "#,##0.0")
            If ComboBox5.Text = "RMB" Then
                TextBox10.Text = Format(Val(CStr(Math.Round((Double.Parse(TEXT1) * ER), 2))), "#,##0.0")
            Else
                TextBox10.Text = Format(Val(TEXT1), "#,##0.0")
            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
        ComboBox3.Items.AddRange(科目清單)
        讀取成本資料表() : 格式設定() : Set_grid1() : 下拉表單資料載入()
        ConnOpen()
        SQL1 = "SELECT 匯率 FROM 匯率表 WHERE (對應 = '人民幣兌台幣')"
        CmdSet_For_dr()
        If dr.Read() Then : TextBox9.Text = dr("匯率").ToString : End If
        ER = Double.Parse(dr("匯率").ToString)
        conn.Close() : dr.Close()
    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 ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        下拉表單資料載入()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Button1.Enabled = True : Button2.Enabled = True : Button3.Enabled = True
        Else
            格式設定()
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
            If InStr(TextBox4.Text, ",") = False And InStr(TextBox5.Text, ",") = False Then
                If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "-請選擇-" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or TextBox2.Text = "" Or TextBox5.Text = "" Then
                    MsgBox("科目或類型欄位不可空白")
                Else
                    Dim NUM1 As Integer
                    For NUM1 = 0 To 99999
                        If NUM1 < 10 Then
                            TextBox8.Text = "GS" & "0000" & NUM1
                        ElseIf NUM1 > 9 And NUM1 < 100 Then
                            TextBox8.Text = "GS" & "000" & NUM1
                        ElseIf NUM1 > 99 And NUM1 < 1000 Then
                            TextBox8.Text = "GS" & "00" & NUM1
                        ElseIf NUM1 > 999 And NUM1 < 10000 Then
                            TextBox8.Text = "GS" & "0" & NUM1
                        ElseIf NUM1 > 9999 Then
                            TextBox8.Text = "GS" & NUM1
                        End If
                        ConnOpen()
                        SQL1 = "SELECT 流水碼 FROM 機構組件成本紀錄表 WHERE (流水碼 ='" & TextBox8.Text & "')"
                        CmdSet_For_dr()
                        If dr.Read() Then : TextBox1.Text = dr("流水碼").ToString : Else : TextBox1.Text = "" : End If
                        conn.Close()
                        If TextBox1.Text = "" Then
                            TextBox1.Text = TextBox8.Text : TextBox8.Text = "可用"
                            NUM1 = 99999
                        End If
                    Next
                    If TextBox8.Text = "可用" Then
                        ConnOpen()
                        SQL1 = "INSERT INTO 機構組件成本紀錄表 (流水碼, 品牌, 供應商, 科目, 類型, 型號及備註, 品名, 供應商成本, 進貨單價, 幣別) VALUES ('" & TextBox1.Text &
                               "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & ComboBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text &
                               "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & ComboBox5.Text & "')"
                        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                        MsgBox("新增完成")
                        conn.Close()
                    End If
                End If
            Else
                MsgBox("供應商成本或進貨成本資料非數字")
            End If
        Else
            MsgBox("供應商成本或進貨成本資料非數字")
        End If
        CheckBox2.Checked = False
        讀取成本資料表() : Set_grid1()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
            If InStr(TextBox4.Text, ",") = False And InStr(TextBox5.Text, ",") = False Then
               ConnOpen()
                SQL1 = "UPDATE 機構組件成本紀錄表 SET 品牌 = '" & ComboBox1.Text & "', 供應商 = '" & ComboBox2.Text & "', 科目 = '" & ComboBox3.Text & "', 類型 = '" & ComboBox4.Text &
                       "', 型號及備註 = '" & TextBox3.Text & "', 品名 = '" & TextBox2.Text & "', 供應商成本 = '" & TextBox4.Text & "', 進貨單價 = '" & TextBox5.Text &
                       "', 幣別 = '" & ComboBox5.Text & "' WHERE (流水碼 = '" & TextBox1.Text & "')"
                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                MsgBox("修改完成")
                conn.Close()
            Else
                MsgBox("供應商成本或進貨成本資料非數字")
            End If
        Else
            MsgBox("供應商成本或進貨成本資料非數字")
        End If
        CheckBox2.Checked = False
        讀取成本資料表() : Set_grid1()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        SQL1 = "DELETE FROM 機構組件成本紀錄表 WHERE (流水碼 = '" & TextBox1.Text & "')"
        SQL1 = "DELETE FROM 機構組件零件BOM表 WHERE (機構碼 = '" & TextBox1.Text & "')"
        cmd.CommandText = SQL : cmd.Connection = conn
        cmd.CommandText = SQL1 : cmd.Connection = conn
        ConnOpen()
        ConnOpen()
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn.Close() : conn.Close()
        CheckBox2.Checked = False : ComboBox3.Text = "-請選擇-"
        讀取成本資料表() : Set_grid1()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        If CheckBox7.Checked = True Then
            讀取成本資料表() : 下拉表單資料載入()
        ElseIf CheckBox6.Checked = True And CheckBox5.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 科目 ='" & ComboBox3.Text & "' AND 類型 ='" & ComboBox4.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                           "' AND 供應商 ='" & ComboBox2.Text & "' AND 科目 ='" & ComboBox3.Text & "' AND 類型 ='" & ComboBox4.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox5.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True Then
            If ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "' AND 類型 ='" & ComboBox4.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "' AND 類型 ='" & ComboBox4.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "' AND 類型 ='" & ComboBox4.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "' AND 類型 ='" & ComboBox4.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox5.Checked = True And CheckBox4.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 類型 ='" & ComboBox4.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 類型 ='" & ComboBox4.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox5.Checked = True And CheckBox3.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 科目 ='" & ComboBox3.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 科目 ='" & ComboBox3.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True Then
            If ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                       "' AND 類型 ='" & ComboBox4.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                       "' AND 類型 ='" & ComboBox4.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox5.Checked = True And CheckBox4.Checked = True Then
            If ComboBox2.Text = "" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 類型 ='" & ComboBox4.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 類型 ='" & ComboBox4.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox5.Checked = True And CheckBox3.Checked = True Then
            If ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox4.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 類型 ='" & ComboBox4.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 類型 ='" & ComboBox4.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox3.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox5.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox2.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True Then
            If ComboBox1.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox5.Checked = True Then
            If ComboBox2.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                           "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                           "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox3.Checked = True Then
            If ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                           "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                           "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        ElseIf CheckBox4.Checked = True Then
            If ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                If CheckBox8.Checked = True Then
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (類型 ='" & ComboBox4.Text &
                       "') ORDER BY 科目, 類型"
                Else
                    SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 類型, 品名, 型號及備註, 供應商成本, 進貨單價, 幣別 FROM 機構組件成本紀錄表 WHERE (類型 ='" & ComboBox4.Text &
                       "') AND (品牌 NOT LIKE '統旺') ORDER BY 科目, 類型"
                End If
                DGV1讀取後設定()
            End If
        End If
        Set_grid1()
    End Sub
    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = False : CheckBox6.Checked = False : ComboBox3.Text = "-請選擇-"
        End If
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then : CheckBox7.Checked = False : End If
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then : CheckBox7.Checked = False : End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then : CheckBox7.Checked = False : End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then : CheckBox7.Checked = False : End If
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        If My.Application.OpenForms.Item("機構組件零件BOM表") IsNot Nothing Then
            機構組件零件BOM表.BringToFront()
        Else
            機構組件零件BOM表.Show()
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        下拉表單資料載入()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        供應商資料.Show()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        品牌清單.Show()
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        機構科目清單.Show()
    End Sub
End Class