Latihan_33A_36110038

Deskripsi Latihan_33A_36110038

Form Latihan_33A terdapat tiga object yaitu label, DataGridView dan Button:

Object Label

Terdapat satu label (DAFTAR BARANG)

Object DataGridView

Terdapat satu data gridview yang digunakan untuk menampilkan field atau kolom KODEBARANG,  NAMABARANG, HARGAJUAL dan JUMLAHBARANG dari table BARANG  yang ada pada DATABARANG.

Object Button

Terdapat tiga object button (tambah, edit dan hapus). Tombol Tambah digunakan untuk menambah data BARANG yang terdiri dari field atau kolom KODEBARANG,  NAMABARANG, HARGAJUAL dan JUMLAHBARANG ke object DataGridView dengan melalui rumus yang ada pada Latihan_32B_36110038. Tombol edit digunakan untuk mengubah data barang pada setiap field atau kolom KODEBARANG,  NAMABARANG, HARGAJUAL dan JUMLAHBARANG dari table BARANG yang ada pada DataGridView dengan melalui rumus yang ada pada latihan_32C_36110038. Sedangkan tombol hapus digunakan untuk menghapus data BARANG  yang dipilih dari DataGridView.

Script Unique 

·         Button "tambah" (tambah_36110038)

If Latihan_33B_36110038.Visible = False Then

            Latihan_33B_36110038.Show()

        Else

            Latihan_33B_36110038.Activate()

            Latihan_33B_36110038.WindowState = FormWindowState.Normal

        End If

·         Button "edit" (edit_36110038)
If Latihan_33B_36110038.Visible = False Then

            Latihan_33B_36110038.Show()

        Else

            Latihan_33B_36110038.Activate()

            Latihan_33B_36110038.WindowState = FormWindowState.Normal

        End If

        Latihan_33B_36110038.kobarlama_36110038.Text = dgv_36110038.CurrentRow.Cells("KodeBarang").Value

        Latihan_33B_36110038.kobar_36110038.Text = dgv_36110038.CurrentRow.Cells("KodeBarang").Value

        Latihan_33B_36110038.Nabar_36110038.Text = dgv_36110038.CurrentRow.Cells("NamaBarang").Value

        Latihan_33B_36110038.Haju_36110038.Text = dgv_36110038.CurrentRow.Cells("Hargajual").Value

        Latihan_33B_36110038.jml_36110038.Text = dgv_36110038.CurrentRow.Cells("jumlahbarang").Value

·         Button "hapus" (hapus_36110038)

Dim command As New OleDb.OleDbCommand

        command = New OleDb.OleDbCommand("delete * from BARANG where KODEBARANG='" & dgv_36110038.CurrentRow.Cells("KODEBARANG").Value & "'", connec)

        connec.Open()

        command.ExecuteNonQuery()

        connec.Close()

        command.Dispose()

        widhe()

Even

tambah_36110038_Click

edit_36110038_Click

hapus_36110038_Click

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_33A_36110038 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_33A

Public Class Latihan_33A_36110038

    Dim connec As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=03")

    Dim table As New DataTable

    Public Sub widhe()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", connec)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

    End Sub

    Private Sub Latihan_33A_36110038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        widhe()

        dgv_36110038.DataSource = table

    End Sub

 

   

    Private Sub Hapus_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_36110038.Click

        Dim command As New OleDb.OleDbCommand

        command = New OleDb.OleDbCommand("delete * from BARANG where KODEBARANG='" & dgv_36110038.CurrentRow.Cells("KODEBARANG").Value & "'", connec)

        connec.Open()

        command.ExecuteNonQuery()

        connec.Close()

        command.Dispose()

        widhe()

    End Sub

    Private Sub tambah_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110038.Click

        If Latihan_33B_36110038.Visible = False Then

            Latihan_33B_36110038.Show()

        Else

            Latihan_33B_36110038.Activate()

            Latihan_33B_36110038.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub edit_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36110038.Click

        If Latihan_33B_36110038.Visible = False Then

            Latihan_33B_36110038.Show()

        Else

            Latihan_33B_36110038.Activate()

            Latihan_33B_36110038.WindowState = FormWindowState.Normal

        End If

        Latihan_33B_36110038.kobarlama_36110038.Text = dgv_36110038.CurrentRow.Cells("KodeBarang").Value

        Latihan_33B_36110038.kobar_36110038.Text = dgv_36110038.CurrentRow.Cells("KodeBarang").Value

        Latihan_33B_36110038.Nabar_36110038.Text = dgv_36110038.CurrentRow.Cells("NamaBarang").Value

        Latihan_33B_36110038.Haju_36110038.Text = dgv_36110038.CurrentRow.Cells("Hargajual").Value

        Latihan_33B_36110038.jml_36110038.Text = dgv_36110038.CurrentRow.Cells("jumlahbarang").Value

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.