Latihan_23B_36110034

Deskripsi penyelesaian

Form Latihan_23B_36110034  terdapat satu object yaitu DataGreatView

Object Label

Terdapat empat objek lebel yang bertuliskan DETAIL TRANSAKSI yang berfungsi sebagai judul form latihan ini, dan tiga objek yang bertuliskan (nomor, tanggal,dan jenis).

Object textbox

Terdapat dua object textbox yang bertuliskan nomor dan jenis , dimana textbox tersebut akan menampilkan nomor dan jenis transaksi yang berhubungan dengan form latihan 23A.

Object Datetimepicker

Terdapat satu objek datetimepicker yang  menunjukkan tanggal secara kalender , yang dapat memudahkan kita dalam menginput tanggal.

Object DataGreatview

Terdapat satu object datagreatview. Pada datagreatview  akan menampilkan data dari table detailtransaksi tetapi no transaksinya sesuai dengan no transaski posisi kursos pada tabel di form latihan 23A.

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

 

4.      membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_23B_36110034

Public Class latihan_23B_36110034

    Dim ANDINI As New DataTable

    Dim ARDIAN As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

    Public Sub KUSUMA(ByVal A As String)

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("select ID, KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS='" & A & "'", ARDIAN)

        ANDINI.Rows.Clear()

        ADAPTER.Fill(ANDINI)

        DGV_36110034.DataSource = ANDINI

    End Sub

End Class

5.      Jalankan program dengan “start debugging”.