Deskripsi Form Latihan_25a_46110003
Form Latihan_25a_46110003 hanya terdapat Object Label, Object DataGridView,
dan Object Button.
Object
Label
Terdapat 1 objek label yaitu "Daftar Barang"
Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan daftar barang.
Object Button
Terdapat 1 object button yaitu "detail transaksi". Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_25b_46110003.
Script Unique
Tidak ada Script unique pada latihan ini karena perintah scriptnya sudah ada pada latihan sebelumnya.
Even
Load
Terdapat 1 objek label yaitu "Daftar Barang"
Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan daftar barang.
Object Button
Terdapat 1 object button yaitu "detail transaksi". Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_25b_46110003.
Script Unique
Tidak ada Script unique pada latihan ini karena perintah scriptnya sudah ada pada latihan sebelumnya.
Even
Load
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_25a_46110003
Dim conect As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim
datatable As New
DataTable
Private Sub Latihan_25a_46110003_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
amal As New
OleDb.OleDbDataAdapter
amal = New
OleDb.OleDbDataAdapter("select*from
barang", conect)
datatable.Rows.Clear()
amal.Fill(datatable)
amal.Dispose()
Dgv46110003.DataSource = datatable
End Sub
Private Sub dt46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles dt46110003.Click
If
Latihan_25b_46110003.Visible = False Then
Latihan_25b_46110003.Show()
Else :
Latihan_25b_46110003.Activate()
End If
Latihan_25b_46110003.kb46110003.Text =
Dgv46110003.CurrentRow.Cells("kodebarang").Value
Latihan_25b_46110003.nb46110003.Text =
Dgv46110003.CurrentRow.Cells("namabarang").Value
Latihan_25b_46110003.hj46110003.Text =
Dgv46110003.CurrentRow.Cells("hargajual").Value
Latihan_25b_46110003.jb46110003.Text =
Dgv46110003.CurrentRow.Cells("persediaanawal").Value
Latihan_25b_46110003.amal(Latihan_25b_46110003.kb46110003.Text)
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar