Latihan_24a_dan_24b_46110037

Design Latihan 24

Deskripsi Form Latihan 24A dan 24B

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

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

Object Label

*Pada Latihan_24A_46110037 terdapat 1 Label yaitu Daftar Barang

*Pada Latihan_24B_46110037 terdapat 5 Label yaitu Detail Transaksi; Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang

Object DataGridView

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

*Pada Latihan_24B_46110037 terdapat 1 DataDridView yang akan Menampilkan detai transaksi dari data yang dipilih di Latihan_24A_46110037

Object Button

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

Object Textbox

Pada Latihan_24B_46110037 Terdapat 4 textbox yaitu Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang

Script Unique

Tidak ada script unique pada latihan ini.

Even

Load

Propertty

Default

Langkah-Langkah Menjalankan Form Latihan 24A dan 24B

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

Langkah-langkah Menyelesaikan Form Latihan 24A dan 24B

• 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_24A_46110037 dan Latihan_24B_46110037) dengan menggunakan DataGridView, Label dan Button
• Ganti nama DataGridView dan Button di properties-Name,
• Click Kanan pada design Latihan_24A_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_24A_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_24A_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 inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", HUBUNG)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        DGV46110037.DataSource = INNA

    End Sub

    Private Sub DETRA46110037_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DETRA46110037.Click

        If LATIHAN_24B_46110037.Visible = False Then

            LATIHAN_24B_46110037.Show()

        Else : LATIHAN_24B_46110037.Activate()

        End If

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

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

        LATIHAN_24B_46110037.Hjual46110037.Text = DGV46110037.CurrentRow.Cells("harga").Value

        LATIHAN_24B_46110037.JumBar46110037.Text = DGV46110037.CurrentRow.Cells("unit").Value

        LATIHAN_24B_46110037.muthmil(LATIHAN_24B_46110037.Kod46110037.Text)

    End Sub

    Private Sub DGV46110037_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46110037.CellContentClick

    End Sub

End Class

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

Public Class LATIHAN_24B_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 muthmil(ByVal a As String)

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("SELECT DETAILTRANSAKSI.ID, DETAILTRANSAKSI.NoTrans, DETAILTRANSAKSI.Unit, DETAILTRANSAKSI.Harga FROM DETAILTRANSAKSI where kodebarang='" & a & "'", HUBUNG)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        DGV46110037.DataSource = INNA

    End Sub

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

    End Sub

    Private Sub DGV46110037_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46110037.CellContentClick

    End Sub

End Class

• Click Start Debugging untuk menjalankan form