Deskripsi
penyelesaian
Form
Latihan_24B_36110034
terdapat satu object yaitu DataGreatView
Object Label
Terdapat empat objek
lebel yang bertuliskan DETAIL TRANSAKSI yang berfungsi sebagai judul form
latihan ini, dan tiga objek yang bertuliskan (kode barang, nama barang, harga
jual, dan jumlah barang).
Object textbox
Terdapat empat object
textbox yang bertuliskan kode barang, nama barang, harga jual, dan jumlah
barang , dimana textbox tersebut akan
menampilkan objek-objek pada lebel tersebut sesuai dengan form
latihan_24A_36110034.
Object Datetimepicker
Terdapat satu objek datetimepicker yang
menunjukkan tanggal secara kalender , yang dapat memudahkan kita dalam
menginput tanggal.
Object DataGreatview
Terdapat satu object datagreatview. Pada datagreatview akan menampilkan data dari table
detailtransaksi kecuali kode barang. Akan tetapi kolom pada tabel pada
datagreatview akan sesuai nilainya pada tempat dimana kursor berada pada form
latihan_24A_36110034.
Property
Property
Datagreatview => name => ok
Prosedur penyelesaian
1.
buka project yang telah dibuat
sebelumnya klik add new item => add windows form => ganti nama project
=> add.
2.
membuat
form dengan menggunakan Label dan Textbox
yang ada dalam "Toolbox”.
3.
ganti nama textbox dan
button menggunakan "Properties Window".
4.
membuka lembar vb Masukkan rumus berikut untuk
menyelesaikan latihan_24B_36110034.
Public Class latihan_24B_36110034
Dim ANDINI As
New DataTable
Dim ARDIAN As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=E:\SEMESTER 5\APKOM
4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")
Public Sub
KUSUMA(ByVal A As
String)
Dim ADAPTER As
New OleDb.OleDbDataAdapter
ADAPTER = New OleDb.OleDbDataAdapter("select ID, NOTRANS, UNIT, HARGA FROM
DETAILTRANSAKSI WHERE KODEBARANG ='" & A & "'", ARDIAN)
ANDINI.Rows.Clear()
ADAPTER.Fill(ANDINI)
DGV1_36110034.DataSource = ANDINI
End Sub
End Class
5.
Jalankan program dengan “start debugging”.
Tidak ada komentar:
Posting Komentar