Form Master Produk Part 5

Selamat Siang coder berikut lanjutan dari tutorial sebelumnya dan masih di applikasi sederhana Minimarket dan bisa di cek >>>>> Disini ...

Step 1 :
Copikan coding berikut dibawah public class

Sub tampil(ByVal sql As String)

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        mda.SelectCommand = perintah

        ds.Tables.Clear()

        mda.Fill(ds, "data")

        dg.DataSource = ds.Tables("data")

        kon.Close()

    End Sub

    Sub proses(ByVal sql As String)

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        perintah.ExecuteNonQuery()

        kon.Close()

    End Sub

    Sub setdg()

        dg.Columns(0).HeaderText = "Kode Produk"

        dg.Columns(1).HeaderText = "Produk Group"

        dg.Columns(2).HeaderText = "Nama Produk"

        dg.Columns(0).Width = 220

        dg.Columns(1).Width = 200

        dg.Columns(2).Width = 250

    End Sub

    Sub tidakaktif()

        txtprodukid.Enabled = False

        txtproduknama.Enabled = False

        cmbprodukgrup.Enabled = False

        txtprodukid.BackColor = Color.Gray

        txtproduknama.BackColor = Color.Gray

        cmbprodukgrup.BackColor = Color.Gray

        cmdsave.Enabled = False

        cmddelete.Enabled = False

        cmdupdate.Enabled = False

    End Sub

    Sub aktif()

        txtprodukid.Enabled = True

        txtproduknama.Enabled = True

        cmbprodukgrup.Enabled = True

        txtprodukid.BackColor = Color.White

        txtproduknama.BackColor = Color.White

        cmbprodukgrup.BackColor = Color.White

        cmdsave.Enabled = True

        cmddelete.Enabled = True

        cmdupdate.Enabled = True

    End Sub

    Sub bersih()

        txtprodukid.Text = ""

        txtproduknama.Text = ""

        cmbprodukgrup.Text = ""

    End Sub

    Sub cekkode()

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * from produk where produkid='" & txtprodukid.Text & "'"

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            txtprodukid.Enabled = False

            cmbprodukgrup.Text = cek.Item("produkgrup")

            txtproduknama.Text = cek.Item("produknama")

        End If

        cek.Close()

        Call aktif()

        txtprodukid.Focus()

        kon.Close()

    End Sub

    Sub getgrup()

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * FROM grup ORDER BY grupid"

        cek = perintah.ExecuteReader

        While cek.Read

            cmbprodukgrup.Items.Add(cek.Item("grupid") & " - " & cek.Item("grupnama"))

        End While

        kon.Close()

    End Sub
Step 2 :
klik 2 kali di form maka akan menghasilkan form load dan copikan coding berikut

Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

        Call setdg()
Step 3 :
Lanjutan dari form load tadi maka ganti event di sebelah kanan dan ganti event nya menjadi form activated dan copikan coding berikut :

cmbprodukgrup.Items.Clear()

        Call getgrup()

        Call tidakaktif()
Step 4 :
Klik 2 kali di tombol save dan copikan koding berikut :

Try

            Call proses("INSERT INTO produk VALUES('" & txtprodukid.Text & "','" & cmbprodukgrup.Text.Substring(0, 5) & "','" & txtproduknama.Text & "')")

            Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Disimpan", MsgBoxStyle.Information, "Informasi")

        End Try
Step 5 :
klik 2 kali di tombol delete dan kopikan coding berikut :

Try

            Call proses("DELETE FROM produk where produkid='" & txtprodukid.Text & "'")

            Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Dihapus", MsgBoxStyle.Information, "Informasi")

        End Try
Step 6 :
Klik 2 kali di tombol update dan copikan coding berikut : 

Try

            Call proses("update produk set produkgrup='" & cmbprodukgrup.Text.Substring(0, 5) & "',produknama='" & txtproduknama.Text & "' where produkid='" & txtprodukid.Text & "'")

            Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Diupdate", MsgBoxStyle.Information, "Informasi")

        End Try
Step 7 :
Klik 2 kali di datagrid view dan ganti eventnya di sebelah kanan atas menjadi datagridview cellclick dan copikan coding berikut :

Dim i As Integer

        i = dg.CurrentRow.Index

        txtprodukid.Text = dg.Rows.Item(i).Cells(0).Value

        Call cekkode()
Step 8 :
copikan coding berikut pada tombol add untuk mengaktifkan form yang sedang tidak aktif..
Call aktif()
Sekian dan terima kasih >>> HappyCoding

Share this

Share on FacebookPlus on Google+