Latihan_24A_46110022
Deskripsi Form Latihan_24A_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
CellContentClick
Click
Langkah-Langkah Membuat Form Latihan 24A_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_24A_46110022
Dim koneksi
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 tabel As New DataTable
Private Sub Latihan_24A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select*from barang
inner join detailtransaksi on barang.kodebarang =
detailtransaksi.kodebarang", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
adapter.Dispose()
dgv46110022.DataSource = tabel
End Sub
Private Sub detail46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles detail46110022.Click
If
Latihan_24B_46110022.Visible = False Then
Latihan_24B_46110022.Show()
Else :
Latihan_24B_46110022.Activate()
End If
Latihan_24B_46110022.kode46110022.Text
= dgv46110022.CurrentRow.Cells("barang.kodebarang").Value
Latihan_24B_46110022.nama46110022.Text
= dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_24B_46110022.harga46110022.Text
= dgv46110022.CurrentRow.Cells("harga").Value
Latihan_24B_46110022.jumlah46110022.Text = dgv46110022.CurrentRow.Cells("unit").Value
Latihan_24B_46110022.ALFAEGA(Latihan_24B_46110022.kode46110022.Text)
End Sub
Private Sub dgv46110022_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110022.CellContentClick
End Sub
5. Jalankan program dengan cara
mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 24A_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 “ B001” dan anda menekan
tombol “Detail Trasaksi” , maka akan muncul daftar barang yag memiliki
Kodebarang “B001”. Hasil ini anda akan melihat dari Latihan_24B_46110022.
- Good luck :)
Postingan
