Deskripsi Form Latihan_23b_46110003
Dalam
form Latihan_23b_46110003 hanya terdapat Object Label, Object TextBox, Object
DataGridView, dan Object DateTimePicker.
Object Label
Terdapat
4 label yang bertuliskan "Detail Transaksi", "No.
Transaksi", "Tanggal Transaksi", dan "Jenis
Transaksi".
Object TextBox
Terdapat
2 obejct textbox yang digunakan untuk menampilkan nomor dan jenis transaksi
dari master transaksi yang dipilih pada form Latihan_23a_46110003.
Object DataGridView
Terdapat
1 object datagridview yang digunakan untuk menampilkan detail transaksi dari
form Latihan_23a_46110003.
Object DateTimePicker
Terdapat
satu object datetimepicker yang digunakan untuk menampilkan tanggal transaksi
dari master transaksi yang dipilih pada form Latihan_23a_46110003.
Script Unique
Tidak
ada Script unique pada form ini
Even
Load
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_23b_46110003
Dim koneksi
As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Public Sub amal(ByVal A As String)
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select*from
detailtransaksi where notrans='" & A & "'", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv46110003.DataSource = tabel
End Sub
Private Sub Latihan_23b_46110003_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub dgv46110003_CellContentClick(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
dgv46110003.CellContentClick
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar