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

Option Strict Off
Public Class 零件成本建檔
    ReadOnly ds 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 ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then
            DGV1讀取前設定()
            SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 ORDER BY 科目"
        Else
            DGV1讀取前設定()
            SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                   "') ORDER BY 科目"
        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()
    End Sub
    Private Sub 格式設定()
        Button1.Enabled = False : Button2.Enabled = False : Button3.Enabled = False
    End Sub
    Private Sub Set_grid1()
        DataGridView1.Columns(0).Width = 100 : DataGridView1.Columns(1).Width = 90 : DataGridView1.Columns(2).Width = 100
        DataGridView1.Columns(3).Width = 130 : DataGridView1.Columns(4).Width = 350 : DataGridView1.Columns(5).Width = 350
        DataGridView1.Columns(6).Width = 100 : DataGridView1.Columns(7).Width = 80
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As 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
            TextBox2.Text = DataGridView1(4, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView1(5, e.RowIndex).Value.ToString
            ComboBox4.Text = DataGridView1(7, e.RowIndex).Value.ToString
            TEXT1 = DataGridView1(6, e.RowIndex).Value.ToString : TextBox4.Text = Format(Val(TEXT1), "#,##0.0")
            If ComboBox4.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
        讀取成本資料表() : 下拉表單資料載入() : 格式設定() : 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 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 Then
            If InStr(TextBox4.Text, ",") = False Then
                If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "-請選擇-" Or ComboBox4.Text = "" Or TextBox2.Text = "" Then
                    MsgBox("科目或品名欄位不可空白")
                Else
                    Dim NUM1 As Integer
                    For NUM1 = 0 To 999999
                        If NUM1 < 10 Then
                            TextBox8.Text = "PA" & "00000" & NUM1
                        ElseIf NUM1 > 9 And NUM1 < 100 Then
                            TextBox8.Text = "PA" & "0000" & NUM1
                        ElseIf NUM1 > 99 And NUM1 < 1000 Then
                            TextBox8.Text = "PA" & "000" & NUM1
                        ElseIf NUM1 > 999 And NUM1 < 10000 Then
                            TextBox8.Text = "PA" & "00" & NUM1
                        ElseIf NUM1 > 9999 And NUM1 < 100000 Then
                            TextBox8.Text = "PA" & "0" & NUM1
                        ElseIf NUM1 > 99999 Then
                            TextBox8.Text = "PA" & 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 = 999999
                        End If
                    Next
                    If TextBox8.Text = "可用" Then
                        ConnOpen()
                        SQL1 = "INSERT INTO 零件成本紀錄表 (流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別, 安全庫存) VALUES ('" & TextBox1.Text &
                           "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox2.Text & "','" & TextBox3.Text &
                           "','" & TextBox4.Text & "','" & ComboBox4.Text & "', '0')"
                        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 Then
            If InStr(TextBox4.Text, ",") = False Then
               ConnOpen()
                SQL1 = "UPDATE    零件成本紀錄表 SET 品牌 = '" & ComboBox1.Text & "', 供應商 = '" & ComboBox2.Text & "', 科目 = '" & ComboBox3.Text &
                   "', 品名 = '" & TextBox2.Text & "', 型號及備註 = '" & TextBox3.Text & "', 進貨單價 = '" & TextBox4.Text &
                   "', 幣別 = '" & ComboBox4.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 & "')"
        cmd.CommandText = SQL1 : cmd.Connection = conn
       ConnOpen()

        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn.Close()
        CheckBox2.Checked = False : ComboBox3.Text = "-請選擇-"
        讀取成本資料表() : Set_grid1()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        供應商資料.Show()
    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 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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 科目 ='" & ComboBox3.Text & "' AND 幣別 ='" & ComboBox4.Text & "') ORDER BY 科目"
                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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "' AND 幣別 ='" & ComboBox4.Text & "') ORDER BY 科目"
                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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "' AND 幣別 ='" & ComboBox4.Text & "') ORDER BY 科目"
                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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 幣別 ='" & ComboBox4.Text & "') ORDER BY 科目"
                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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "' AND 科目 ='" & ComboBox3.Text & "') ORDER BY 科目"
                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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                       "' AND 幣別 ='" & ComboBox4.Text & "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        ElseIf CheckBox5.Checked = True And CheckBox4.Checked = True Then
            If ComboBox2.Text = "" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 幣別 ='" & ComboBox4.Text & "') ORDER BY 科目"
                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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox4.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 幣別 ='" & ComboBox4.Text & "') ORDER BY 科目"
                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讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 科目 ='" & ComboBox3.Text & "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True And CheckBox5.Checked = True Then
            If ComboBox1.Text = "" Or ComboBox2.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "' AND 供應商 ='" & ComboBox2.Text & "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        ElseIf CheckBox6.Checked = True Then
            If ComboBox1.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (品牌 ='" & ComboBox1.Text &
                       "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        ElseIf CheckBox5.Checked = True Then
            If ComboBox2.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (供應商 ='" & ComboBox2.Text &
                       "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        ElseIf CheckBox3.Checked = True Then
            If ComboBox3.Text = "" Or ComboBox3.Text = "-請選擇-" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (科目 ='" & ComboBox3.Text &
                       "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        ElseIf CheckBox4.Checked = True Then
            If ComboBox4.Text = "" Then : MsgBox("選項不能空白") : Else
                DGV1讀取前設定()
                SQL1 = "SELECT 流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別 FROM 零件成本紀錄表 WHERE (幣別 ='" & ComboBox4.Text &
                       "') ORDER BY 科目"
                DGV1讀取後設定()
            End If
        End If
        Set_grid1()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        品牌清單.Show()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        下拉表單資料載入()
    End Sub
End Class