Sabtu, 06 Oktober 2012
Latihan_24b_36110029
Deskripsi
Latihan_24b_36110029
Object Label
Terdapat lima
label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual,
dan jumlah barang).
Object
DataGridView
Terdapat
satu object datagridview yang digunakan untuk menampilkan detail transaksi dari
form Latihan_24a_36110029 yang berupa nama barang, persediaan awal, dan harga
jual.
Object
TextBox
Terdapat empat obejct textbox yang
digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah
barang dari daftar barang yang dipilih pada form Latihan_24a_36110029.
Script Unique
Untuk
script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_24b_36110029
Even
Latihan_24b_36110029_Load
Cucu()
v
Prosedur Latihan_24b_36110029
1. Buka project yang telah dibuat.
2.
pilih
Add New Item pada Microsoft Visual Studio 2005/ 2008
3. Setelah add new item terbuka,
pilih windows form, lalu ketik nama form dan add.
4. Kemudian buat form seperti di
bawah ini:
5. Setelah format untuk
Latihan_24b_36110029 sudah dibuat maka selanjutnya kita membuat
listing program pada jendela code:
Public Class Latihan_24b_36110029
Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DOKUMEN\SEMESTER 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
Dim hana As New DataTable
Public Sub cucu()
Dim B As New OleDb.OleDbDataAdapter
B = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI where KODEBARANG = '" & kb_36110029.Text & "'", A)
hana.Rows.Clear()
B.Fill(hana)
B.Dispose()
End Sub
Private Sub Latihan_24B_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
data_36110029.DataSource = hana
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DOKUMEN\SEMESTER 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
Dim hana As New DataTable
Public Sub cucu()
Dim B As New OleDb.OleDbDataAdapter
B = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI where KODEBARANG = '" & kb_36110029.Text & "'", A)
hana.Rows.Clear()
B.Fill(hana)
B.Dispose()
End Sub
Private Sub Latihan_24B_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
data_36110029.DataSource = hana
End Sub
End Class
6. Tekan F5 pada keyboard
untuk menjalankan form, kemudian ketik angka
pada kolom dan perhatikan hasilnya.
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar