Latihan_30A_36110034

Deskripsi penyelesaian

Form Latihan_30A_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 satu objek button yang bertuliskan EDIT . tombol edit  jika di klik akan menampilkan form latihan_30B_36110034 yang berisi penggantian data pada kode barang  pada form latihan sebelumnya, berhubungan dengan kode barang, nama barang, harga jual dan jumlah barang, yang kemudian akan mangubah data pada kode barang yang dipilih pada daftar barang yang telah muncul sebelumnya pada form latihan ini.

Script Unique 

Buttom "Edit”

If latihan_30B_36110034.Visible = False Then

            latihan_30B_36110034.Show()

        Else

            latihan_30B_36110034.Activate()

        End If

        latihan_30B_36110034.GANTI_36110034.Text = DGV_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_30B_36110034.KB2_36110034.Text = DGV_36110034.CurrentRow.Cells("NAMABARANG").Value

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

        latihan_30B_36110034.JUM_36110034.Text = DGV_36110034.CurrentRow.Cells("JUMLAHBARANG").Value

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

Public Class latihan_30A_36110034

    Dim DINI As New DataTable

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

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

        If latihan_30B_36110034.Visible = False Then

            latihan_30B_36110034.Show()

        Else

            latihan_30B_36110034.Activate()

        End If

        latihan_30B_36110034.GANTI_36110034.Text = DGV_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_30B_36110034.KB2_36110034.Text = DGV_36110034.CurrentRow.Cells("NAMABARANG").Value

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

        latihan_30B_36110034.JUM_36110034.Text = DGV_36110034.CurrentRow.Cells("JUMLAHBARANG").Value

    End Sub

    Private Sub latihan_30A_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", ANDINI)

        DINI.Rows.Clear()

        ADAPTER.Fill(DINI)

        ADAPTER.Dispose()

        DGV_36110034.DataSource = DINI

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.