Latihan_25a_dan_25b_46110037

Design Form

Setelah Debugging

Deskripsi Form Latihan 25A dan 25B

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

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

Object Label

*Pada Latihan_25A_46110037 terdapat 1 Label yaitu Daftar Barang

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

Object DataGridView

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

*Pada Latihan_25B_46110037 terdapat 1 DataDridView yang akan Menampilkan detai transaksi dari data yang dipilih di Latihan_25A_46110037

Object Button

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

Object Textbox

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

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 25A dan 25B

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

Langkah-langkah Menyelesaikan Form Latihan 25A dan 25B

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

Public Class LATIHAN_25A_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_25A_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_25B_46110037.Visible = False Then

            LATIHAN_25B_46110037.Show()

        Else : LATIHAN_25B_46110037.Activate()

        End If

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

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

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

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

        LATIHAN_25B_46110037.uly(LATIHAN_25B_46110037.Kod46110037.Text)

    End Sub

End Class

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

Public Class LATIHAN_25B_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 uly(ByVal A As String)

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select*from detailtransaksi where kodebarang='" & A & "'", HUBUNG)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        DGV46110037.DataSource = INNA

    End Sub

End Class

• Click Start Debugging untuk menjalankan form