latihan_34B_46110004

Deskripsi form latihan 34B
Dalam form Latihan 34b 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 34c dan mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 34c 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 34B

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_34B_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

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

ambildata()

dg_46110004.DataSource = ambil

End Sub

Private Sub hapus_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_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

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

'Menampilkan form 33b

If latihan_34C_46110004.Visible = False Then

latihan_34C_46110004.MdiParent = Me.MdiParent

latihan_34C_46110004.Show()

Else

latihan_34C_46110004.Activate()

End If

'mengosongkan textbox 33b

latihan_34C_46110004.ganti_46110004.Text = "-"

latihan_34C_46110004.kb_46110004.Text = " "

latihan_34C_46110004.nb_46110004.Text = " "

latihan_34C_46110004.hj_46110004.Text = " "

latihan_34C_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

latihan_34C_46110004.Show()

'Mengisi Text Box

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

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

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

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

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

End Sub

End Class

5. Untuk menjalankan latihan ini maka terlebih dahulu jalankan latihan 34a lalu klik tombol "daftar barang" yang ada di latihan 34a seperti gambar di bawah ini: