Latihan_33A_36110034

Deskripsi penyelesaian

Form Latihan_33A_36110034  terdapat dua object yaitu DataGreatView ,button, dan lebel :

Object lebel

Terdapat satu objek lebel yang bertuliskan DAFTAR BARANG sebagai judul pada form latihan ini.

Object DataGreatview

Terdapat satu object datagreatview yang akan menampilkan data pada kolom barang , yaitu kode barang , nama barang, harga jual dan jumlah barang yang datanya berasal dari tabel barang yang sebulumnya hanya dapat dilihat dengan menggunakan MS. Access.

Object Button

Terdapat dua objek button yang bertuliskan TAMBAH,EDIT, dan HAPUS. tombol tambah  jika di klik akan menampilkan form latihan_33B_36110034 yang berisi penambahan data barang berupa kode barang, nama barang, harga jual , dan jumlah barang, serta toolstriplebel yang bertuliskan kode barang lama, akan akan tetapi objek ini tidak akan terisi jika perintah pada form latihan ini memilih tombol tambah. Sedangkan tombol edit jika diklik akan menampilkan form yang sama, akan tetapi perbedaannya hanya terletak pada objek toolstriplebel yang terisi dengan kode barang yang akan diedit datanya. Dan tombol hapus akan menghapus data barang sesuai dengan posisi kursor berada.

Script Unique 

Buttom "Tambah”

If latihan_33B_36110034.Visible = False Then

            latihan_33B_36110034.Show()

        Else

            latihan_33B_36110034.Activate()

        End If

    End Sub

Buttom "Edit”

If latihan_33B_36110034.Visible = False Then

            latihan_33B_36110034.Show()

        Else

            latihan_33B_36110034.Activate()

        End If

        latihan_33B_36110034.KBL_36110034.Text = DGV_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_33B_36110034.KB_36110034.Text = DGV_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_33B_36110034.NB_36110034.Text = DGV_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_33B_36110034.JB_36110034.Text = DGV_36110034.CurrentRow.Cells("JUMLAHBARANG").Value

        latihan_33B_36110034.HJ_36110034.Text = DGV_36110034.CurrentRow.Cells("HARGAJUAL").Value

    End Sub

Buttom "Hapus”

DINI = New OleDb.OleDbCommand("DELETE * FROM BARANG WHERE KODEBARANG = '" & DGV_36110034.CurrentRow.Cells("KODEBARANG").Value & "'", WIRAWAN)

        WIRAWAN.Open()

        DINI.ExecuteNonQuery()

        WIRAWAN.Close()

        DINI.Dispose()

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("SELECT *FROM BARANG", WIRAWAN)

        DIAN.Rows.Clear()

        ADAPTER.Fill(DIAN)

        ADAPTER.Dispose()

        DGV_36110034.DataSource = DIAN

    End Sub

End Class

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

2.   membuat form dengan menggunakan DataGreatView,button, dan lebel yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_33A_36110034.

Public Class latihan_33A_36110034

    Dim DIAN As New DataTable

    Dim DINI As New OleDb.OleDbCommand

    Dim WIRAWAN As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=2304")

    Private Sub TB_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TB_36110034.Click

        If latihan_33B_36110034.Visible = False Then

            latihan_33B_36110034.Show()

        Else

            latihan_33B_36110034.Activate()

        End If

    End Sub

    Private Sub ED_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ED_36110034.Click

        If latihan_33B_36110034.Visible = False Then

            latihan_33B_36110034.Show()

        Else

            latihan_33B_36110034.Activate()

        End If

        latihan_33B_36110034.KBL_36110034.Text = DGV_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_33B_36110034.KB_36110034.Text = DGV_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_33B_36110034.NB_36110034.Text = DGV_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_33B_36110034.JB_36110034.Text = DGV_36110034.CurrentRow.Cells("JUMLAHBARANG").Value

        latihan_33B_36110034.HJ_36110034.Text = DGV_36110034.CurrentRow.Cells("HARGAJUAL").Value

    End Sub

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

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("SELECT *FROM BARANG", WIRAWAN)

        DIAN.Rows.Clear()

        ADAPTER.Fill(DIAN)

        ADAPTER.Dispose()

        DGV_36110034.DataSource = DIAN

    End Sub

    Private Sub HP_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HP_36110034.Click

        DINI = New OleDb.OleDbCommand("DELETE * FROM BARANG WHERE KODEBARANG = '" & DGV_36110034.CurrentRow.Cells("KODEBARANG").Value & "'", WIRAWAN)

        WIRAWAN.Open()

        DINI.ExecuteNonQuery()

        WIRAWAN.Close()

        DINI.Dispose()

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("SELECT *FROM BARANG", WIRAWAN)

        DIAN.Rows.Clear()

        ADAPTER.Fill(DIAN)

        ADAPTER.Dispose()

        DGV_36110034.DataSource = DIAN

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.