Latihan_26B_46110024

DESKRIPSI FORM LATIHAN 26B

Form Latihan  ini Terdapat tiga object yaitu label, textbox, dan datagridview

Object Label

Dalam form latihan ini terdapat tujuh label yang bertuliskan Detail Transaksi, Kode Barang, Nama Barang, Harga Jual, Jumlah Barang, Total unit, dan Total Jumlah

Object  Textbox

Dalam form ini enam  buah textbox 4 berstatus input dan 2 textbox berstatus readonly

Object Data Gridview

Terdapat  sebuah object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan.

Script  Unique

Tidak ada script unik pada latihan ini

Langkah- Langkah Membuat Form Latihan  26B

1. Buka File Microsoft Visual Studio Anda  lalu pilih project --> Add windows form 

 

2. Ganti nama sesuai dengan nama latihan 26B

 

3. Lalu pilih object yang ada di latihan26B

 

4. Buat form sampai menghasilkan form seperti di bawah ini

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_26B_46110024

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim meong As New DataTable

    Public Sub waty(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        Dim shoell As String

        shoell = "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 = '" & A & "'"

        adapter = New OleDb.OleDbDataAdapter(shoell, koneksi)

        adapter.Fill(meong)

        Dim izhar As Integer = 0

        Dim sul As Integer = 0

        For Each row As DataRow In meong.Rows

            izhar += row("Unit")

            sul += row("Jumlah")

        Next

        TU_46110024.Text = izhar

        TJ_46110024.Text = sul

    End Sub

    Private Sub Latihan_26B_46110024(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DGV_46110024.DataSource = meong

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan 26B

Form ini akan jalan dengan sendirinya jika anda mengklik button klik yang bertuliskan detail transaksi pada latihan 26A