Deskripsi
Form Latihan 25B
Dalam form Latihan 25B hanya terdapat Object Label, Object TextBox, dan Object DataGridView
Object Label
Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".
Object TextBox
Terdapat 4 obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_24A_46110039.
Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_25A_46110023
Dalam form Latihan 25B hanya terdapat Object Label, Object TextBox, dan Object DataGridView
Object Label
Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".
Object TextBox
Terdapat 4 obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_24A_46110039.
Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_25A_46110023
Langkah-langkah membuat dan menjalankan
form latihan 25B
Langkah-langkah atau cara membuat form
pada latihan 25B ini sama saja dengan langkah-langkah membuat form pada latihan-latihan sebelumnya,. Yang membedakan
hanyalah desaign formnya dan scriptnya. Pada form ini bentuk formnya seperti
berikut:
Setelah desaignnya jadi, klik kanan pada
desaidn kemudian pilih view code maka akan muncul halaman baru lalu masukkan
script seperti dibawah ini:
Public Class LATIHAN_25B_46110023
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 uly(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)
DGV_46110023.DataSource = tabel
End Sub
Private Sub
latihan_25B_46110023_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
Script Unique
Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.
Even
Load
Tidak ada komentar:
Posting Komentar