Latihan_23B_36110044 Aplikasi Komputer 4

Pada Form Latihan 23B terdapat empat object  yaitu object Datagridview, label, datetimepicker  dan textbox

Object Datagridview

digunakan untuk menampilkan data yang telah disimpan.

Object label

sebanyak empat yang bertuliskan Detail transaksi, nomor, tanggal dan jenis

Object textbox

sebanyak dua yang diberi nama nomor_36110044 dan jenis_36110044

Object Datetimepicker 

sebanyak satu yang  diberi nama tanggal_36110044

Script Unique

Script unique latihan 23B dapat dilihat pada Prosedur Penyelesaian

Even

Tiya()

Latihan_23B_36110048_Load

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

 

2.      Pilih icon Add New Item

 

3.      Ubah nama pada lembar “Add New Item” kemudian add

 

4.      Buat design form dengan menggunakan object Datagridview, label, datetimepicker  dan textbox yang ada dalam "Toolbox”

 

5.      Ganti nama Textbox dan Button menggunakan "Properties Window"

 

6.      Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_23B

Public Class Latihan_23B_36110044

    Dim bridgeTiya As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\materi kuliah\apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim tabelTiya As New DataTable

    Public Sub Tiya()

        Dim truckTiya As New OleDb.OleDbDataAdapter

        truckTiya = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI Where NOTRANS = '" & NOMOR_36110044.Text & "'", bridgeTiya)

        tabelTiya.Rows.Clear()

        truckTiya.Fill(tabelTiya)

        truckTiya.Dispose()

    End Sub

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

        DGV_36110044.DataSource = tabelTiya

    End Sub

End Class

7.      Jalankan program dengan menggunakan  “start debugging”