Latihan_25A_46110022
Dalam form ini terdapat object label,
datagriedview, dan button.
Object Label
Dalam form ini terdapat 1 object label
yaitu (daftar barang).
Object Datagriedview
Terdapat sebuah object Datagriedview
yang digunakan untuk menampilkan data tabel yang telah dibuat.
Object Button
Terdapat sebuah object button yaitu
( detail transaksi)
Script Unique
__
Even
Load
Click
Langkah-Langkah Membuat Form Latihan 25A_46110022
1. Buat form baru seperti langkah berikut
:
2. Input nama form pada kolom
"add" seperti berikut :
3. Buat desain form seperti gambar
berikut :
4. Input script di bawah ini :
Public Class Latihan_25A_46110022
Dim conect As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=E:\SEMESTER 5\apkom\bahan ajar\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim
datatable As New
DataTable
Private Sub Latihan_25A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
Dim
shoell As New
OleDb.OleDbDataAdapter
shoell = New
OleDb.OleDbDataAdapter("select*from
barang", conect)
datatable.Rows.Clear()
shoell.Fill(datatable)
shoell.Dispose()
dgv46110022.DataSource = datatable
End Sub
Private Sub detail46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles detail46110022.Click
If
Latihan_25B_46110022.Visible = False Then
Latihan_25B_46110022.Show()
Else :
Latihan_25B_46110022.Activate()
End If
Latihan_25B_46110022.kode46110022.Text
= dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_25B_46110022.nama46110022.Text
= dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_25B_46110022.harga46110022.Text
= dgv46110022.CurrentRow.Cells("hargajual").Value
Latihan_25B_46110022.jmlah46110022.Text
= dgv46110022.CurrentRow.Cells("persediaanawal").Value
Latihan_25B_46110022.alfaega(Latihan_25B_46110022.kode46110022.Text)
End Sub
End Class
5. Jalankan program dengan cara
mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 25A_46110022
- Klik start debugging
- Form ini akan
menampilkan Daftar Barang dari
datatable yaitu pada DataGriedView.
- Jika anda mengarahkan kursor
anda pada Kodebarang yang anda inginkan seperti “ B002” dan anda menekan
tombol “Detail Trasaksi” , maka akan muncul daftar barang yag memiliki
Kodebarang “B002”. Hasil ini anda akan melihat dari Latihan_25B_46110022.
- Good luck :)
Postingan
