latihan_33A_46110023

Deskripsi Form Latihan 33A

Dalam form latihan 33a terdapat 3 object yaitu object label, datagridview, dan button

Object label

terdapat 1 object label yang bertuliskan “daftar barang”.

Object datagridview

hanya 1 object datagridview yang nantinya akan menampilkan daa berupa tabel.

Oject button

Ada 3 object button yang bertuliskan ‘tambah”, "hapus", “edit”

Langkah- langkah membuat form latihan 33A

1.    Buka file folder project VB yang sudah ada.

2.    Buat form baru dengan cara klik project pada menu bar dan pilih add new windows :

3.    Setelah itu ganti nama form lalu pilih add:

 

4.    Kemudian buat desaign seperti gambar berikut dengan memasukkan object –object yang telah disebutkan diatas:

 

5.    Pilih solution explorer dan  beri nama setiap object, kecuali object label:

 

6.    Setelah formnya jadi, klik kanan pada desaign dalan pilih view code:

 

Setelah muncul halaman baru, masukkan script seperti dibawah ini:

Public Class LATIHAN_33A_46110023
    Dim dian As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim tabel As New DataTable
    Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* from barang", dian)
        tabel.Rows.Clear()

        data.Fill(tabel)
        data.Dispose()
    End Sub

    Private Sub Latihan_33A_46110023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv_46110023.DataSource = tabel
    End Sub

    Private Sub hapus_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_46110023.Click
        If MsgBox("are you serious??? do you want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim cm As New OleDb.OleDbCommand
        cm = New OleDb.OleDbCommand("delete * from barang where kodebarang ='" & dgv_46110023.CurrentRow.Cells("kodebarang").Value & "'", dian)
        dian.Open()
        cm.ExecuteNonQuery()
        dian.Close()
        cm.Dispose()

        ambildata()
    End Sub

    Private Sub edit_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110023.Click

        If LATIHAN_33B_46110023.Visible = False Then
            LATIHAN_33B_46110023.Show()
        Else
            LATIHAN_33B_46110023.Activate()
        End If

        LATIHAN_33B_46110023.ganti_46110023.Text = dgv_46110023.CurrentRow.Cells("kodebarang").Value
        LATIHAN_33B_46110023.kode_46110023.Text = dgv_46110023.CurrentRow.Cells("kodebarang").Value
        LATIHAN_33B_46110023.nama_46110023.Text = dgv_46110023.CurrentRow.Cells("namabarang").Value
        LATIHAN_33B_46110023.harga_46110023.Text = dgv_46110023.CurrentRow.Cells("hargajual").Value
        LATIHAN_33B_46110023.jumlah_46110023.Text = dgv_46110023.CurrentRow.Cells("jumlahbarang").Value

    End Sub

    Private Sub tambah_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110023.Click

        If LATIHAN_33B_46110023.Visible = False Then
            LATIHAN_33B_46110023.Show()
        Else
            LATIHAN_33B_46110023.Activate()
        End If

        LATIHAN_33B_46110023.ganti_46110023.Text = "-"
        LATIHAN_33B_46110023.kode_46110023.Text = ""
        LATIHAN_33B_46110023.nama_46110023.Text = ""
        LATIHAN_33B_46110023.harga_46110023.Text = ""
        LATIHAN_33B_46110023.jumlah_46110023.Text = ""

    End Sub
End Class

 Langkah –Langkah Menjalankan Latihan 33A

1. Klik star debugging, maka latihan 33A akan muncul

2. jika button tambah diklik maka akan muncul latihan 33b

3. dan jika button edit diklik maka akn muncul altihan 33c

Script unique

Tidak ada script unik pada latihan ini, karena scriptnya sama dengan laihan-latihan sebelumnya.

even

click

load