Latihan_33A_46110020

Deskripsi Form Latihan_33A_46110020

Dalam form ini terdapat Tiga buah object yaitu Label, DataGriedView, dan Button.

Object Label

Dalam form ini terdapat satu objek Label yang bertuliskan Daftar Barang.

Object DataGriedView

Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan data dari SQL (DATABARANG).

Object Button

Terdapat Tiga item object Button yang digunakan untuk mengedit, menambahh, dan menghapus data yang telah ada dalam SQL (databarang).

Cara Membuat Form Latihan_33A_46110020

1. Bukalah project yang anda telah buat sebelumnya

2. Pilih dan Bukalah Project dalam Visul Basic

3. Kemudian Pilih Add Windows form seperti berikut :

4. Lalu add new item dan rename file “form.vb menjadi Latihan_33A_46110020”

5. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

6. Kemudian mulailah membuat form 33A dengan mengunakan Label, TextBox, dan Button.

7. Lalu buatlah sesuai contoh latihan 33A maka akan menjadi seperti ini :

8. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_33A_46110020

    Dim YUNI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Dim AYU As New DataTable

    Public Sub SAYANG()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", YUNI)

        'bersihkan data dulu sebelum isi data lain

        AYU.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(AYU)

        data.Dispose()

    End Sub

    Private Sub Latihan_33A_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        SAYANG()

        DGV_46110020.DataSource = AYU

    End Sub

    Private Sub TAMBAH_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110020.Click

        'Menampilkan form 33b

        If Latihan_33B_46110020.Visible = False Then

            Latihan_33B_46110020.Show()

        Else

            Latihan_33B_46110020.Activate()

        End If

        'mengosongkan textbox 33b

        Latihan_33B_46110020.ganti_46110020.Text = "-"

        Latihan_33B_46110020.KB_46110020.Text = " "

        Latihan_33B_46110020.NB_46110020.Text = " "

        Latihan_33B_46110020.HJ_46110020.Text = " "

        Latihan_33B_46110020.JB_46110020.Text = " "

    End Sub

    Private Sub EDIT_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110020.Click

        If Latihan_33B_46110020.Visible = False Then

            Latihan_33B_46110020.Show()

        Else

            Latihan_33B_46110020.Activate()

        End If

        'mengisi textbox yang ada pada 32c

        Latihan_33B_46110020.ganti_46110020.Text = DGV_46110020.CurrentRow.Cells("kodebarang").Value

        Latihan_33B_46110020.KB_46110020.Text = DGV_46110020.CurrentRow.Cells("kodebarang").Value

        Latihan_33B_46110020.NB_46110020.Text = DGV_46110020.CurrentRow.Cells("namabarang").Value

        Latihan_33B_46110020.HJ_46110020.Text = DGV_46110020.CurrentRow.Cells("hargajual").Value

        Latihan_33B_46110020.JB_46110020.Text = DGV_46110020.CurrentRow.Cells("JumlahBarang").Value

    End Sub

    Private Sub HAPUS_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46110020.Click

        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            Exit Sub

        End If

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & DGV_46110020.CurrentRow.Cells("Kodebarang").Value & "'", YUNI)

        YUNI.Open()

        Cm.ExecuteNonQuery()

        YUNI.Close()

        Cm.Dispose()

        'Mengambil data kembali

        SAYANG()

    End Sub

End Class

9. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan 33A_46110020

1.        Klik start debugging

2.      Maka data SQL (databarang) akan tampil secara otomatis  seperti di bawah :

3.         Semoga Berhasil :)

Script Unique

Script unik yang terdapat pada latihan ini sama dengan latihan-latihan sebelumnya, tetapi Untuk Penghapusan data  :

Private Sub HAPUS_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46110020.Click

        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            Exit Sub

        End If

Untuk Mengambil data kembali

SAYANG()

Even

Clik

Load