Download ikon-ikon cantik untuk vb.net 2013

Selamat Siang rekan-rekan programer. kali ini artikel saya membahas tentang pentingnya ikon-ikon cantik dalam pembuatan sebuah aplikasi. ikon ini adalah sebagai penjelas atau petunjuk si user dalam pemakaian aplikasi. adapun contoh ikon seperti berikut. 

Nah masih banyak lagi ikon-ikon cantik seperti ini lagi dalam versi banyak ukuran. berikut saya akan berikan link download untuk ikon tersebut.

Download : Di Sini

Binding Data to Datagridview in VB.NET

Good morning guys, berikut ini adalah cara load data ke datagridview. disini saya anggap sudah bisa membuat sebuah database dan satu table bernama "Barang" dan untuk koneksi database mysql ke vb.net bisa check Disini...

 Berikut tampilan form yang akan dibuat

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")

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

        kon.Close()

    End Sub
Step 2 : Copikan Coding berikut di form load dengan cara klik 2 kali form.
 Call tampil("select * from barang")
dan klik run project anda..

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

Form Master Grup Part 4

Ini adalah tutorial lanjutan dari perancangan sistem informasi minimarket yang saya buat untuk lebih lanjut mari kita liat designya :

Untuk melihat Tutorial Sebelumnya bisa dilihat Disini

Step 1 : 

copi kan 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 Group"

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

        

        dg.Columns(0).Width = 220

        dg.Columns(1).Width = 440

        

    End Sub

    Sub tidakaktif()

        txtgrupid.Enabled = False

        txtgrupnama.Enabled = False

        txtgrupid.BackColor = Color.Gray

        txtgrupnama.BackColor = Color.Gray

        cmdsave.Enabled = False

        cmddelete.Enabled = False

        cmdupdate.Enabled = False

    End Sub

    Sub aktif()

        txtgrupid.Enabled = True

        txtgrupnama.Enabled = True

        txtgrupid.BackColor = Color.White

        txtgrupnama.BackColor = Color.White

        cmdsave.Enabled = True

        cmddelete.Enabled = True

        cmdupdate.Enabled = True

    End Sub

    Sub bersih()

        txtgrupid.Text = ""

        txtgrupnama.Text = ""

    End Sub

    Sub cekkode()

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * FROM grup where grupid='" & txtgrupid.Text & "'"

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            txtgrupid.Enabled = False

            txtgrupnama.Text = cek.Item("grupnama")

        End If

        cek.Close()

        Call aktif()

        txtgrupid.Focus()

        kon.Close()

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

Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

        Call setdg()
Step 3 :
Klik 2 kali di tombol save dan copikan coding berikut :

Try

            Call proses("INSERT INTO grup VALUES('" & txtgrupid.Text & "','" & txtgrupnama.Text & "')")

            Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

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

        End Try
Step 4 :
Klik 2 kali di tombol delete dan copikan koding berikut :

Try

            Call proses("DELETE FROM grup where grupid='" & txtgrupid.Text & "'")

            Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

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

        End Try
Step 5:
klik 2 kali di tombol update dan copikan coding berikut :

Try

            Call proses("update grup set grupnama='" & txtgrupnama.Text & "' where grupid='" & txtgrupid.Text & "'")

            Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

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

        End Try
Step 6 :
klik 2 kali di datagridview dan pilih event yang disebelah kanan atas dan ganti menjadi datagridview cellclik dan copikan coding berikut :

Dim i As Integer

        i = dg.CurrentRow.Index

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

        Call cekkode()
koding diatas ini berfungsi untuk cek data dan melakukan proses update dan delete..
Sekian dan Terima Kasih..