Latihan_32A_36110034

Deskripsi penyelesaian

Form Latihan_32A_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 . tombol tambah  jika di klik akan menampilkan form latihan_32B_36110034 yang berisi penambahan data barang berupa kode barang, nama barang, harga jual , dan jumlah barang, sedangkan tombol edit jika diklik akan menampilkan form latihan_32C_36110034 yang akan mengubah data pada kode barang yang dipilih pada form latihan ini.

Script Unique 

Buttom "Tambah”

If latihan_32B_36110034.Visible = False Then

            latihan_32B_36110034.Show()

        Else

            latihan_32B_36110034.Activate()

        End If

    End Sub

Buttom "edit”

If latihan_32C_36110034.Visible = False Then

            latihan_32C_36110034.Show()

        Else

            latihan_32C_36110034.Activate()

        End If

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

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

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

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

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

Public Class latihan_32A_36110034

    Dim ANDINI As New DataTable

    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 BT1_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT1_36110034.Click

        If latihan_32B_36110034.Visible = False Then

            latihan_32B_36110034.Show()

        Else

            latihan_32B_36110034.Activate()

        End If

    End Sub

    Private Sub latihan_32A_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)

        ANDINI.Rows.Clear()

        ADAPTER.Fill(ANDINI)

        ADAPTER.Dispose()

        DGV1_36110034.DataSource = ANDINI

    End Sub

    Private Sub BT2_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT2_36110034.Click

        If latihan_32C_36110034.Visible = False Then

            latihan_32C_36110034.Show()

        Else

            latihan_32C_36110034.Activate()

        End If

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

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

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

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

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.