Latihan_26a_dan_26b_46110037

Design Form

Setelah Debugging

Deskripsi Form Latihan 26A dan 26B

*Pada Latihan_26A_46110037 terdapat 3 object yaitu Label, DataGridVie dan Button.

*Pada Latihan_26B_46110037 terdapat 3 object yaitu Label, DataGridView dan Textbox

Object Label

*Pada Latihan_26A_46110037 terdapat 1 Label yaitu Daftar Barang

*Pada Latihan_26B_46110037 terdapat 7 Label yaitu Detail Transaksi; Kode Barang; Nama Barang; Harga Jual; Jumlah Barang; Total Unit dan Total Jumlah.

Object DataGridView

*Pada Latihan_26A_46110037 terdapat 1 DataGridView yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access

*Pada Latihan_26B_46110037 terdapat 1 DataDridView yang akan Menampilkan detai transaksi dari data yang dipilih di Latihan_26A_46110037

Object Button

Pada Latihan_26A_46110037 terdapat 1 button yaitu tombol Detail Transaksi. Apabila tombol ini diclick maka detail dari transaksi yang dipilih akan muncul pada form Latihan_26B_46110037

Object Textbox

Pada Latihan_26B_46110037 Terdapat 6 textbox yaitu Kode Barang; Nama Barang; Harga Jual; Jumlah Barang; Total Unit dan Total Jumlah.

Script Unique

Tidak ada script unique pada latihan ini karena scriptnya hampir sama dengan Latihan-latihan sebelumnya

Even

Load

Propertty

Default

Langkah-Langkah Menjalankan Form Latihan 26A dan 26B

Click Start Debugging. Kemudian pilih salah satu transaksi yang anda inginkan untuk melihatdetailnya kemudian click tombol Detail Transaksi maka form Latihan 26B_46110037 akan muncul dengan menampilkan detail dari transaksi yang dipilih pada Form Latihan_26A_46110037.

Langkah-langkah Menyelesaikan Form Latihan 26A dan 26B

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_26A_46110037 dan Latihan_26B_46110037) dengan menggunakan DataGridView, Label dan Button
• Ganti nama DataGridView dan Button di properties-Name,
• Click Kanan pada design Latihan_26A_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_26A_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

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

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select*from barang", HUBUNG)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        DGV46110037.DataSource = INNA

    End Sub

    Private Sub Detail46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail46110037.Click

        If LATIHAN_26B_46110037.Visible = False Then

            LATIHAN_26B_46110037.Show()

        Else : LATIHAN_26B_46110037.Activate()

        End If

        LATIHAN_26B_46110037.Kod46110037.Text = DGV46110037.CurrentRow.Cells("kodebarang").Value

        LATIHAN_26B_46110037.NamaBarg46110037.Text = DGV46110037.CurrentRow.Cells("namabarang").Value

        LATIHAN_26B_46110037.Hjual46110037.Text = DGV46110037.CurrentRow.Cells("hargajual").Value

        LATIHAN_26B_46110037.JumBar46110037.Text = DGV46110037.CurrentRow.Cells("persediaanawal").Value

        LATIHAN_26B_46110037.MUTH(LATIHAN_26B_46110037.Kod46110037.Text)

    End Sub

End Class

• Selesaikan juga Script pada Latihan_26B_46110037dengan cara:
• Pilih design form Latihan_26B_46110037, kemudian Click kanan dan pilih View Code, setelah itu ketik script seperti dibawah ini:

Public Class LATIHAN_26B_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

    Public Sub MUTH(ByVal A As String)

        Dim MOTOR As New OleDb.OleDbDataAdapter

        Dim MILMAN As String

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

        MOTOR = New OleDb.OleDbDataAdapter(MILMAN, HUBUNG)

        MOTOR.Fill(INNA)

        Dim EVA As Integer = 0

        Dim DILLA As Integer = 0

        For Each row As DataRow In INNA.Rows

            EVA += row("Unit")

            DILLA += row("Jumlah")

        Next

        TOTUN46110037.Text = EVA

        TOTJUM46110037.Text = DILLA

    End Sub

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

        DGV46110037.DataSource = INNA

    End Sub

End Class

• Click Start Debugging untuk menjalankan form