Deskripsi Latihan_19_36110042
A.
Object dalam
Latihan_19_36110042
Hanya ada satu object dalam Latihan_19_36110042, yaitu object DataGridView sebanyak satu.
B.
Script Unique
Untuk script,
dapat diliat secara lebih lengkap pada Langkah-Langkah
Latihan_19_36110042.
C.
Even
Latihan_19_36110042_Load
Langkah-Langkah Latihan_19_36110042
1.
Klik Start lalu pilih Microsoft
Visual Studio 2008.
2.
Lalu akan muncul Start
Page Microsoft Visual Studio 2008.
3.
Pilih Recent Project
“Kumpulan_Latihan_36110042”
4.
Setelah terbuka, pilih icon Add
New Item atau Ctrl+Shift+A
5.
Akan terbuka jendela Add New
Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_19_1936110042”
6. Kemudian buat form sesuai dengan form
di bawah ini.
7. Berikut ini adalah rumus untuk
menjalankan form di atas.
Public Class Latihan_19_36110042
Dim CONECT As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0;data
source=D:\AKUNTANSI 2010\SEMESTER 5\APKOM_4\APKOM 4 LENGKAP\LATIHAN 15-26
MENGAKSES DATA\DataTransaksiJualBeli.accdb")
Dim DT As
New DataTable
Private Sub
Latihan_19_36110042_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim RR As New
OleDb.OleDbDataAdapter
RR = New
OleDb.OleDbDataAdapter("select
mastertransaksi.NOTRANS, mastertransaksi.TANGGALTRANSAKSI,
mastertransaksi.JENISTRANSAKSI, detailtransaksi.KODEBARANG,
detailtransaksi.UNIT, detailtransaksi.HARGA from mastertransaksi inner join
detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans",
CONECT)
DT.Rows.Clear()
RR.Fill(DT)
DGV_36110042.DataSource = DT
RR.Dispose()
End Sub
Private Sub
DGV_36110042_CellContentClick(ByVal sender As System.Object, ByVal
e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DGV_36110042.CellContentClick
End Sub
End Class
8. Setelah itu, jalankan
programnya dengan klik Icon
Start Debugging kemudian akan mucul form navigator dan klik Latihan 19.
Tidak ada komentar:
Posting Komentar