FORM MASTER KASIR PART 3

Diharapkan rekan-rekan semua sudah membaca tutorial sebelumnya, Berikut adalah lanjutan dari tutorial sebelumnya yaitu :
Perancangan Database Minimarket Part 1
Koneksi Mysql Ke VB.NET Part 2

Nah langsung saja aplikasi ini saya buat menggunakan bantuan Devexpreess dimna dapat di download juga di blog saya dengan link berikut : Download Devexpress

Berikut Screenshoot Form Kasir :

Langkah 1 : Menampilkan Data dari database ke datagridview

klik 2 kali pada datagridview dan massukan kode berikut

Call tampil("SELECT * FROM kasir ORDER BY kasirid ASC")

Call setdg()

langkah 2 :

letakan koding berikut dibawah public class form

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

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

        dg.Columns(2).HeaderText = "Password Kasir"

        dg.Columns(3).HeaderText = "Level Kasir"

        dg.Columns(0).Width = 150

        dg.Columns(1).Width = 250

        dg.Columns(2).Width = 150

        dg.Columns(3).Width = 110

    End Sub

    Sub tidakaktif()

        txtkasirid.Enabled = False

        txtkasirnama.Enabled = False

        txtkasirpassword.Enabled = False

        cmblevel.Enabled = False

        txtkasirid.BackColor = Color.Gray

        txtkasirnama.BackColor = Color.Gray

        txtkasirpassword.BackColor = Color.Gray

        cmblevel.BackColor = Color.Gray

        cmdsave.Enabled = False

        cmddelete.Enabled = False

        cmdupdate.Enabled = False

    End Sub

    Sub aktif()

        txtkasirid.Enabled = True

        txtkasirnama.Enabled = True

        txtkasirpassword.Enabled = True

        cmblevel.Enabled = True

        txtkasirid.BackColor = Color.White

        txtkasirnama.BackColor = Color.White

        txtkasirpassword.BackColor = Color.White

        cmblevel.BackColor = Color.White

        cmdsave.Enabled = True

        cmddelete.Enabled = True

        cmdupdate.Enabled = True

    End Sub

    Sub bersih()

        txtkasirid.Text = ""

        txtkasirnama.Text = ""

        txtkasirpassword.Text = ""

        cmblevel.Text = ""

    End Sub

    Sub cekkode()

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * FROM kasir where kasirid='" & txtkasirid.Text & "'"

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            txtkasirid.Enabled = False

            txtkasirnama.Text = cek.Item("kasirnama")

            txtkasirpassword.Text = cek.Item("kasirpassword")

            cmblevel.Text = cek.Item("kasirlevel")

        End If

        cek.Close()

        Call aktif()

        txtkasirid.Focus()

        'cmdadd.Enabled = True

        kon.Close()

    End Sub

Langkah 3: Tombol Save

klik 2 kali pada button save dan massukan kode berikut

Try

            Call proses("INSERT INTO kasir VALUES('" & txtkasirid.Text & "','" & txtkasirnama.Text & "','" & txtkasirpassword.Text & "','" & cmblevel.Text & "')")

            Call tampil("SELECT * FROM kasir ORDER BY kasirid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

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

 End Try

Langkah 4 : Tombol Update 

Klik 2 kali pada tombol update dan massukan kode berikut

Try

            Call proses("update kasir set kasirnama='" & txtkasirnama.Text & "',kasirpassword='" & txtkasirpassword.Text & "',kasirlevel='" & cmblevel.Text & "' where kasirid='" & txtkasirid.Text & "'")

            Call tampil("SELECT * FROM kasir ORDER BY kasirid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

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

 End Try

Langkah 5 : Tombol Delete 

klik 2 kali pada tombol delete dan masukaan kode berikut

Try

            Call proses("DELETE FROM kasir where kasirid='" & txtkasirid.Text & "'")

            Call tampil("SELECT * FROM kasir ORDER BY kasirid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

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

  End Try

Skenario untuk menghapus atau mengupdate data yang telah tersimpan di dalam database adalah dengan cara mengklik datagrid, maka data akan tampil pada textboxt setelah itu baru bisa melakukan update atau edit data. sebelumnya ikuti dibawah ini.

langkah 6 : CellClick pada datagridview

klik 2 kali pada datagridview dan lihat event sebelah kanan atas anda dan ganti menjadi cellClick.

setelah itu masukan kode dibawah ini .

Dim i As Integer

        i = dg.CurrentRow.Index

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

      Call cekkode()

Sekian Tutorialnya happy coding.

Tags : Devexpress