Pada form latihan 25B ada 3 object yang digunakan yaitu Label, Textbox dan Data Grid View.
Object Label
Terdapat 5
label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual",
dan "jumlah barang".
Object Textbox
Terdapat 4 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_25A_46110027.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.
Script Unique
-Even
Load
- Langkah-langkah Membuat Form 25B
2. Ketik nama Latihan_25B yang akan dibuat pada kotak “NAME” lalu pilih “add”
3. Buatlah desain seperti berikut menggunakan toolbox
Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name"
4. Pilih menu “view” klik “code”
5. Masukkan rumus berikut:
Public Class Latihan_25B_46110027
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Public Sub rsty(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where kodebarang='" & A & "'", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv1_46110027.DataSource = tabel
End Sub
Private Sub DGV1_46110027_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv1_46110027.CellContentClick
End Sub
End Class
6. Klik start debugging
7. Maka akan tampil Lat 25A sbb:
0 komentar:
Posting Komentar