Latihan_34B_36110034

Deskripsi penyelesaian

Form Latihan_34B_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 tiga objek button yang bertuliskan TAMBAH,EDIT, dan HAPUS. tombol tambah  jika di klik akan menampilkan form latihan_34C_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 hanya menambah daftar barang pada tabel. 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 pada form latihan 34B.

Script Unique 

Buttom "Tambah”

If latihan_34C_36110034.Visible = False Then

            latihan_34C_36110034.Show()

        Else

            latihan_34C_36110034.Activate()

        End If

    End Sub

Buttom "Edit”

If latihan_34C_36110034.Visible = False Then

            latihan_34C_36110034.Show()

        Else

            latihan_34C_36110034.Activate()

        End If

        latihan_34C_36110034.KBL_36110034.Text = DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_34C_36110034.KB_36110034.Text = DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_34C_36110034.NB_36110034.Text = DGV1_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_34C_36110034.HJ_36110034.Text = DGV1_36110034.CurrentRow.Cells("HARGAJUAL").Value

        latihan_34C_36110034.JB_36110034.Text = DGV1_36110034.CurrentRow.Cells("JUMLAHBARANG").Value

    End Sub

Buttom "Hapus”

DIAN = New OleDb.OleDbCommand("DELETE * FROM BARANG WHERE KODEBARANG = '" & DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value & "'", MAW)

        MAW.Open()

        DIAN.ExecuteNonQuery()

        MAW.Close()

        DIAN.Dispose()

        Dim ADAPTER As New OleDb.OleDbDataAdapter

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

        DINI.Rows.Clear()

        ADAPTER.Fill(DINI)

        ADAPTER.Dispose()

        DGV1_36110034.DataSource = DINI

    End Sub

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_34B_36110034.

Public Class latihan_34B_36110034

    Dim DINI As New DataTable

    Dim DIAN As New OleDb.OleDbCommand

    Dim MAW 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_34C_36110034.Visible = False Then

            latihan_34C_36110034.Show()

        Else

            latihan_34C_36110034.Activate()

        End If

    End Sub

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

        DIAN = New OleDb.OleDbCommand("DELETE * FROM BARANG WHERE KODEBARANG = '" & DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value & "'", MAW)

        MAW.Open()

        DIAN.ExecuteNonQuery()

        MAW.Close()

        DIAN.Dispose()

        Dim ADAPTER As New OleDb.OleDbDataAdapter

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

        DINI.Rows.Clear()

        ADAPTER.Fill(DINI)

        ADAPTER.Dispose()

        DGV1_36110034.DataSource = DINI

    End Sub

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

        If latihan_34C_36110034.Visible = False Then

            latihan_34C_36110034.Show()

        Else

            latihan_34C_36110034.Activate()

        End If

        latihan_34C_36110034.KBL_36110034.Text = DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_34C_36110034.KB_36110034.Text = DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_34C_36110034.NB_36110034.Text = DGV1_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_34C_36110034.HJ_36110034.Text = DGV1_36110034.CurrentRow.Cells("HARGAJUAL").Value

        latihan_34C_36110034.JB_36110034.Text = DGV1_36110034.CurrentRow.Cells("JUMLAHBARANG").Value

    End Sub

    Private Sub latihan_34B_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", MAW)

        DINI.Rows.Clear()

        ADAPTER.Fill(DINI)

        ADAPTER.Dispose()

        DGV1_36110034.DataSource = DINI

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.