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

Option Strict Off
Imports System.Data.SqlClient
Public Class 零件成本建檔
    Dim conn1 As New SqlConnection
    Dim cmd1 As New SqlCommand
    Dim dr1 As SqlDataReader
    Dim da As New SqlDataAdapter
    Dim ds As New DataSet : Dim ds1 As New DataSet
    Private Sub DGV1讀取前設定()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
    End Sub
    Private Sub DGV1讀取後設定()
        cmd1.Connection = conn1 : cmd1.CommandText = SQL1 : da.SelectCommand = cmd1 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn1.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 下拉表單資料載入()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        SQL1 = "SELECT 品牌 FROM 品牌資料"
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox1.Items.Clear()
        While (dr1.Read())
            ComboBox1.Items.Add(dr1("品牌"))
        End While
        conn1.Close()

        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        SQL1 = "SELECT  供應商 FROM 供應商資料表"
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox2.Items.Clear()
        While (dr1.Read())
            ComboBox2.Items.Add(dr1("供應商"))
        End While
        conn1.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()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        SQL1 = "SELECT 匯率 FROM 匯率表 WHERE (對應 = '人民幣兌台幣')"
        cmd1.Connection = conn1 : cmd1.CommandText = SQL1 : dr1 = cmd1.ExecuteReader
        If dr1.Read() Then : TextBox9.Text = dr1("匯率").ToString : End If
        ER = Double.Parse(dr1("匯率").ToString)
        conn1.Close() : dr1.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
                        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
                        SQL1 = "SELECT 流水碼 FROM 零件成本紀錄表 WHERE (流水碼 ='" & TextBox8.Text & "')"
                        cmd1.Connection = conn1 : cmd1.CommandText = SQL1 : dr1 = cmd1.ExecuteReader
                        If dr1.Read() Then : TextBox1.Text = dr1("流水碼").ToString : Else : TextBox1.Text = "" : End If
                        conn1.Close()
                        If TextBox1.Text = "" Then
                            TextBox1.Text = TextBox8.Text : TextBox8.Text = "可用"
                            NUM1 = 999999
                        End If
                    Next
                    If TextBox8.Text = "可用" Then
                        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
                        SQL1 = "INSERT INTO 零件成本紀錄表 (流水碼, 品牌, 供應商, 科目, 品名, 型號及備註, 進貨單價, 幣別, 安全庫存) VALUES ('" & TextBox1.Text &
                           "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox2.Text & "','" & TextBox3.Text &
                           "','" & TextBox4.Text & "','" & ComboBox4.Text & "', '0')"
                        cmd1.Connection = conn1 : cmd1.CommandText = SQL1 : cmd1.ExecuteNonQuery()
                        MsgBox("新增完成")
                        conn1.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
                If conn1.State = ConnectionState.Closed Then : conn1.Open() : End If
                SQL1 = "UPDATE    零件成本紀錄表 SET 品牌 = '" & ComboBox1.Text & "', 供應商 = '" & ComboBox2.Text & "', 科目 = '" & ComboBox3.Text &
                   "', 品名 = '" & TextBox2.Text & "', 型號及備註 = '" & TextBox3.Text & "', 進貨單價 = '" & TextBox4.Text &
                   "', 幣別 = '" & ComboBox4.Text & "' WHERE (流水碼 = '" & TextBox1.Text & "')"
                cmd1.CommandText = SQL1 : cmd1.ExecuteNonQuery()
                MsgBox("修改完成")
                conn1.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 & "')"
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1
        If conn1.State = ConnectionState.Closed Then : conn1.Open() : End If

        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd1.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn1.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