Sabtu, 06 Oktober 2012
Latihan_23b_36110029
v Deskripsi Latihan_23b_36110029
Object Label
Terdapat empat
label (yang bertuliskan detail transaksi, nomor, tanggal, dan jenis).
Object
DataGridView
Terdapat
satu object datagridview yang digunakan untuk menampilkan detail transaksi dari
form Latihan_23a_36110029.
Object
DateTimePicker
Terdapat satu
object datetimepicker yang digunakan untuk menampilkan tanggal transaksi dari
master transaksi yang dipilih pada form Latihan_23a_36110029
Object
TextBox
Terdapat dua obejct textbox yang
digunakan untuk menampilkan nomor dan jenis transaksi dari master transaksi yang
dipilih pada form Latihan_23a_36110029.
Script
Unique
Untuk
script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_23b_36110029.
Even
Latihan_23b_36110029_Load
cucu()
v
Prosedur Latihan_23b_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_23b_36110029 sudah dibuat maka selanjutnya kita membuat
listing program pada jendela code:
Public Class Latihan_23b_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 NOTRANS = '" & nomor_36110029.Text & "'", A)
hana.Rows.Clear()
B.Fill(hana)
B.Dispose()
End Sub
Private Sub Latihan_23B_36110048_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 NOTRANS = '" & nomor_36110029.Text & "'", A)
hana.Rows.Clear()
B.Fill(hana)
B.Dispose()
End Sub
Private Sub Latihan_23B_36110048_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