Latihan_26b_36110029

v Deskripsi Latihan_26b_36110029

Object Label

Terdapat lima label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, dan jumlah barang).

Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_26a_36110029 yang berupa notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan jumlah.

Object TextBox

Terdapat enam obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, jumlah, total unit, dan total jumlah dari daftar barang yang dipilih pada form Latihan_26a_36110029.

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_26b_36110029.

Even

Latihan_26b_36110029_Load

cucu()

Perhitungan()

v   Prosedur  Latihan_26b_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_26b_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_26b_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 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 = '" & kb_36110029.Text & "'", A)
        hana.Rows.Clear()
        B.Fill(hana)
        B.Dispose()
    End Sub

    Public Sub Perhitungan()
        Dim TU As Integer
        Dim TOTAL As Integer
        For Each x As DataRow In hana.Rows
            TU = TU + x("UNIT")
            TOTAL = TOTAL + x("JUMLAH")
        Next
        TU_36110029.Text = TU
        TJ_36110029.Text = TOTAL
    End Sub

    Private Sub Latihan_26b_36110029_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.