GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/未整理與未使用/其他/品牌清單.vb

Option Strict Off
Public Class 品牌清單
    ReadOnly ds As New DataSet
    Private Sub 讀取品牌資料表()
        DataGridView2.DataSource = Nothing : ds.Clear()
        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25
        DataGridView2.AllowUserToAddRows = False

        ConnOpen()
        SQL1 = "SELECT 流水碼, 品牌 FROM 品牌資料 ORDER BY 流水碼"
        CmdSet_For_DGV() : da.Fill(ds) : DataGridView2.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub 格式設定()
        TextBox8.Visible = False
    End Sub
    Private Sub Set_grid2()
        DataGridView2.Columns(0).Width = 70 : DataGridView2.Columns(1).Width = 80
    End Sub
    Private Sub 品牌清單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormBorderStyle = FormBorderStyle.SizableToolWindow
        讀取品牌資料表() : Set_grid2() : 格式設定()
    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 DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox7.Text = DataGridView2(0, e.RowIndex).Value.ToString : TextBox6.Text = DataGridView2(1, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If TextBox6.Text = "" Then
            MsgBox("品牌欄位不可空白")
        Else
            Dim NUM1 As Integer
            For NUM1 = 0 To 9999
                If NUM1 < 10 Then
                    TextBox8.Text = "B" & "00" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then
                    TextBox8.Text = "B" & "0" & NUM1
                ElseIf NUM1 > 99 Then
                    TextBox8.Text = "B" & NUM1
                End If
                ConnOpen()
                SQL1 = "SELECT 流水碼 FROM 品牌資料 WHERE (流水碼 ='" & TextBox8.Text & "')"
                CmdSet_For_dr()
                If dr.Read() Then : TextBox7.Text = dr("流水碼").ToString : Else : TextBox7.Text = "" : End If
                conn.Close()
                If TextBox7.Text = "" Then
                    TextBox7.Text = TextBox8.Text : TextBox8.Text = "可用"
                    NUM1 = 9999
                End If
            Next
            If TextBox8.Text = "可用" Then
                ConnOpen()
                SQL1 = "INSERT INTO 品牌資料 (流水碼, 品牌) VALUES ('" & TextBox7.Text & "','" & TextBox6.Text & "')"
                cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                MsgBox("新增完成")
                conn.Close()
            End If
        End If
        讀取品牌資料表() : Set_grid2()
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       ConnOpen()
        SQL1 = "UPDATE    品牌資料 SET  品牌 = '" & TextBox6.Text & "' WHERE (流水碼 = '" & TextBox7.Text & "')"
        cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        MsgBox("修改完成")
        conn.Close()
        讀取品牌資料表() : Set_grid2()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        SQL1 = "DELETE FROM 品牌資料 WHERE (流水碼 = '" & TextBox7.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()
        讀取品牌資料表() : Set_grid2()
    End Sub
End Class