Latihan_26B_36110044 Aplikasi Komputer 4

Pada Form Latihan 26B terdapat tiga object  yaitu object Datagridview, Label,  dan TextBox

Object Datagridview

digunakan untuk menampilkan data yang telah disimpan.

Object label

sebanyak tujuh yang bertuliskan Detail transaksi, Kode Barang, Nama Barang, Harga Jual, Jumlah Barang, Total Unit, dan Total Jumlah

Object textbox

sebanyak empat yang berstatus input yang diberi nama Kode_36110044, Nama_36110044, Harga_36110044, Jumlah_36110044

sebanyak duayang berstatus ReadOnly yang diberi nama Totunit_36110044, Totjumlah_36110044

Script Unique

Script unique dapat dilihat pada Prosedur Penyelesaian latihan ini

Even

Tiya()

Perhitungan()

Latihan_26B_36110044_Load

Property

Property TextBox ==> ReadOnly=True

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, 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_26B

Public Class Latihan_26B_36110044

    Dim CONECT 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 table As New DataTable

    Public Sub tiya()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("Select MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH From DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS=MASTERTRANSAKSI.NOTRANS Where KODEBARANG = '" & KODE_36110044.Text & "'", CONECT)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

    End Sub

    Public Sub Perhitungan()

        Dim TU As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In table.Rows

            TU = TU + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        TOTUNIT_36110044.Text = TU

        TOTJML_36110044.Text = TOTAL

    End Sub

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

        DGV_36110044.DataSource = table

    End Sub

End Class

7.      Jalankan program dengan menggunakan  “start debugging”