latihan_33A_46110004

Deskripsi form latihan 33A
Dalam form Latihan 33a hanya terdapat dua object yaitu DataGriedView dan Button

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.

Object Button :
Dalam form ini terdapat dua buah object button yang bertuliskan “tambah” ,  “edit” dan “hapus”. Button  “edit”  ini digunakan untuk menampilkan form latihan 33b  dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 33b dan  menambahkan data ke dalam database. Sedangkan button “hapus” digunakan untuk menghapus data yang diinginkan.

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

Even :
Load

Button Click

 

Langkah-langkah penyelesaian form latihan 33A

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_33A_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_33A_46110004

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim ambil As New DataTable

    Public Sub ambildata()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain

        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(ambil)

        data.Dispose()

    End Sub

    Private Sub latihan_33A_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        dg_46110004.DataSource = ambil

    End Sub

    Private Sub tmbh_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmbh_46110004.Click

        'Menampilkan form 33b

        If latihan_33B_46110004.Visible = False Then

            latihan_33B_46110004.Show()

        Else

            latihan_33B_46110004.Activate()

        End If

        'mengosongkan textbox 33b

        latihan_33B_46110004.ganti_46110004.Text = "-"

        latihan_33B_46110004.kb_46110004.Text = " "

        latihan_33B_46110004.nb_46110004.Text = " "

        latihan_33B_46110004.hj_46110004.Text = " "

        latihan_33B_46110004.jb_46110004.Text = " "

    End Sub

    Private Sub edit_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110004.Click

        'Menampilkan form 33b

        If latihan_33B_46110004.Visible = False Then

            latihan_33B_46110004.Show()

        Else

            latihan_33B_46110004.Activate()

        End If

        'mengisi textbox yang ada pada 32c

        latihan_33B_46110004.ganti_46110004.Text = dg_46110004.CurrentRow.Cells("kodebarang").Value

        latihan_33B_46110004.kb_46110004.Text = dg_46110004.CurrentRow.Cells("kodebarang").Value

        latihan_33B_46110004.nb_46110004.Text = dg_46110004.CurrentRow.Cells("namabarang").Value

        latihan_33B_46110004.hj_46110004.Text = dg_46110004.CurrentRow.Cells("hargajual").Value

        latihan_33B_46110004.jb_46110004.Text = dg_46110004.CurrentRow.Cells("JumlahBarang").Value

    End Sub

    Private Sub hps_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_46110004.Click

        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            Exit Sub

        End If

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dg_46110004.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'Mengambil data kembali

        ambildata()

    End Sub

End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 33a seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 33a sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.