Deskripsi Latihan_25B_36110038
Form Latihan_25B terdapat tiga
object yaitu Lebel, DataGridView, dan
TextBox:
Object Label
Terdapat lima label (yang
bertuliskan DETAILTRANSAKSI, Kode Barang, Nama Barang, Harga Jual dan Jumlah
Barang)
Object Data GridView
Terdapat
satu data gridview yang digunakan untuk menampilkan field atau kolom NOTRANS,
TANGGALTRANSAKSI, JENISTRANSAKSI, KETERANGAN dari table MASTERTRANSAKSI dan
UNIT, HARGA, JUMLAH(hasil perkalian UNIT dan HARGA) dari table DETAILTRANSAKSI yang
ada pada D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26
MENGAKSES DATA\DataTransaksiJualBeli. Tetapi yang kode
barangnya sesuai dengan kode barang posisi kursor yang di klik pada tombol Detail
Transaksi pada Latihan_25A.
Object Text Box
Terdapat empat textbox status input
digunakan untuk memasukkan nilai
Atau text Kode Barang, Nama Barang,
Harga Jual dan Jumlah Barang.
Script Unique
Script sesuai yang ada pada prosedur-prosedur
Latihan_25B_36110038 dibawah
Even
Latihan_25B_36110038_Load
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama
Latihan_25B_36110038 sesuai form dibawah ini.
4. Ganti
semua nama objek yang ada selain label menggunakan "Properties
Window" sesuai dengan yang diinginkan dengan menambahkan stambuk
dibelakang nama obyek.
5. Klik
2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan
rumus berikut untuk menyelesaikan Latihan_25B
Public Class Latihan_25B_36110038
Dim hubung As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli.accdb")
Dim table As New DataTable
Public Sub widhe()
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("SELECT
MASTERTRANSAKSI.*, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA,
DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA as JUMLAH FROM MASTERTRANSAKSI INNER
JOIN DETAILTRANSAKSI ON MASTERTRANSAKSI.NOTRANS=DETAILTRANSAKSI.NOTRANS WHERE
KODEBARANG= '" & Kobar_36110038.Text & "'", hubung)
table.Rows.Clear()
adapter.Fill(table)
adapter.Dispose()
End Sub
Private Sub Latihan_25B_36110032_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
widhe()
dgv_36110038.DataSource = table
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar