LATIHAN_23B_36110042

Deskripsi Latihan_23B_36110042

A.   Object-object dalam Latihan_23B_36110042:

1.   Object Label

Terdapat empat label (yang bertuliskan detail transaksi, nomor, tanggal, dan jenis).

2.   Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_23A_36110042.

3.   Object DateTimePicker

Terdapat satu object datetimepicker yang digunakan untuk menampilkan tanggal transaksi dari master transaksi yang dipilih pada form Latihan_23A_36110042

4.   Object TextBox

Terdapat dua obejct textbox yang digunakan untuk menampilkan nomor dan jenis transaksi dari master transaksi yang dipilih pada form Latihan_23A_36110042.

B.   Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Latihan_23B_36110042.

C.   Even

Latihan_23B_36110042_Load

RARA()

Langkah-Langkah Latihan_23B_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_23B_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_23B_36110042

    Dim bridgeRara 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

    Public Sub Rara()

        Dim truckRara As New OleDb.OleDbDataAdapter

        truckRara = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI Where NOTRANS = '" & NOMOR_36110042.Text & "'", bridgeRara)

        DT.Rows.Clear()

        truckRara.Fill(DT)

        truckRara.Dispose()

    End Sub

    Private Sub Latihan_23B_36110048_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        DGV_36110042.DataSource = DT

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 23.