Latihan_24A_46110002

Deskripsi Form Latihan 24B

Pada form latihan 24A ada 3 object yang digunakan yaitu Label, Text Box dan Data Grid View.

Object Label

Terdapat 1 label (DAFTAR BARANG).

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button

Terdapat 1 button (Detail Transaksi). Button detail transaksi digunakan untuk menampilkan secara detail daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_24B_46110002.\

Script Unique

Membuat Koneksi

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

        

Membuat data tabel   

Dim tabel As New DataTable

Membuat adapter

Dim mobil As New OleDb.OleDbDataAdapter

Mengisi data base kedalam data tabel

mobil.Fill(tabel)

mobil.Dispose()

DGVA_46110002.DataSource = tabel

Even

Load

Click

Langkah-Langkah Penyelesaian Form Latihan_24A_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_24A_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Klik kanan, view kode lalu  masukkan rumus
Public Class Latihan_24A_46110002
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Private Sub Latihan_24A_46110002_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim mobil As New OleDb.OleDbDataAdapter
        mobil = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", koneksi)
        tabel.Rows.Clear()
        mobil.Fill(tabel)
        mobil.Dispose()

        DGVA_46110002.DataSource = tabel
    End Sub
    Private Sub DETAIL_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DETAIL_46110002.Click
        If Latihan_24B_46110002.Visible = False Then
            Latihan_24B_46110002.Show()
        Else : Latihan_24B_46110002.Activate()
        End If

        Latihan_24B_46110002.KB_46110002.Text = DGVA_46110002.CurrentRow.Cells("barang.kodebarang").Value
        Latihan_24B_46110002.NB_46110002.Text = DGVA_46110002.CurrentRow.Cells("namabarang").Value
        Latihan_24B_46110002.JB_46110002.Text = DGVA_46110002.CurrentRow.Cells("persediaanawal").Value
        Latihan_24B_46110002.H_46110002.Text = DGVA_46110002.CurrentRow.Cells("hargajual").Value

        Latihan_24B_46110002.ilda(Latihan_24B_46110002.KB_46110002.Text)
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 24A

·         Klik star debugging, trus klik latihan 24A

·          Maka akan muncul hasil seperti ini