Pada Form Latihan 25B terdapat tiga
object yaitu object Datagridview,
Label, dan TextBox
Object Datagridview
digunakan untuk menampilkan data
yang telah disimpan.
Object label
sebanyak lima yang bertuliskan
Detail transaksi, Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang
Object textbox
sebanyak empat yang diberi nama Kode_36110044,
Nama_36110044, Harga_36110044, Jumlah_36110044
Script Unique
Script unique dapat dilihat
pada Prosedur Penyelesaian latihan ini
Even
Tiya()
Latihan_25B_36110044_Load
PROSEDUR PENYELESAIAN:
1.
Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Pilih icon Add New Item
3.
Ubah nama pada lembar “Add New Item”
kemudian add
4.
Buat design form dengan
menggunakan object Datagridview, label, dan
textbox
yang ada dalam "Toolbox”
5.
Ganti nama Textbox dan Button
menggunakan "Properties Window"
6.
Klik 2x pada kotak design untuk
membuka lembar vb
Masukkan rumus berikut untuk menyelesaikan latihan_25B
Masukkan rumus berikut untuk menyelesaikan latihan_25B
Public Class Latihan_25B_36110044
Dim
bridgeTiya As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\materi kuliah\apkom 4\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli.accdb")
Dim
tabelTiya As New
DataTable
Public Sub Tiya()
Dim
trukTiya As New
OleDb.OleDbDataAdapter
trukTiya = New
OleDb.OleDbDataAdapter("Select
MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI,
MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN,
DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA
AS JUMLAH From DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON
DETAILTRANSAKSI.NOTRANS=MASTERTRANSAKSI.NOTRANS Where KODEBARANG = '"
& KODE_36110044.Text & "'",
bridgeTiya)
tabelTiya.Rows.Clear()
trukTiya.Fill(tabelTiya)
End Sub
Private Sub Latihan_25B_36110044_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
DGV_36110044.DataSource = tabelTiya
End Sub
End Class
7.
Jalankan program dengan
menggunakan “start debugging”
Tidak ada komentar:
Posting Komentar