latihan_32A_46110004

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

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam 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 32c  dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 32b dan  menambahkan data ke dalam database.

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 32A

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_32a_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_32A_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_32A_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        dg_46110004.DataSource = ambil

    End Sub

    Private Sub tambah_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110004.Click

        'Menampilkan form 32b

        If latihan_32B_46110004.Visible = False Then

            latihan_32B_46110004.Show()

        Else

            latihan_32B_46110004.Activate()

        End If

    End Sub

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

        'Menampilkan form 32c

        If latihan_32C_46110004.Visible = False Then

            latihan_32C_46110004.Show()

        Else

            latihan_32C_46110004.Activate()

        End If

        'mengisi textbox yang ada pada 32c

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

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

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

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

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

    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 32a seperti dibawah ini :

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

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