Latihan_24A_46110024

DESKRIPSI FORM LATIHAN 24A

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

Object Label

Dalam form latihan ini terdapat sebuah object label yang bertuliskan Daftar Barang

Object Data Gridview

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

Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan Detail Transaksi yang digunakan untuk menampilkan form latihan 24B

Script  Unique

Tidak ada script unik pada form ini

Even

Load

Buttonclick

Langkah- Langkah Membuat Form Latihan  24A

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

 

2. Ganti nama sesuai dengan nama latihan_23B_46110024

3. Lalu pilih object yang ada di latihan

4. Buat form sampai menghasilkan form seperti di bawah ini

 

5. Pilih Menu view klik code

 

6. Masukkan Script sebagai berikut

Public Class Latihan_24A_46110024

    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_46110024_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_46110024.DataSource = tabel

    End Sub

  

    Private Sub DETAIL_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DETAIL_46110024.Click

        If Latihan_24B_46110024.Visible = False Then

            Latihan_24B_46110024.Show()

        Else : Latihan_24B_46110024.Activate()

        End If

        Latihan_24B_46110024.KB_46110024.Text = DGVA_46110024.CurrentRow.Cells("barang.kodebarang").Value

        Latihan_24B_46110024.NB_46110024.Text = DGVA_46110024.CurrentRow.Cells("namabarang").Value

        Latihan_24B_46110024.JB_46110024.Text = DGVA_46110024.CurrentRow.Cells("persediaanawal").Value

        Latihan_24B_46110024.H_46110024.Text = DGVA_46110024.CurrentRow.Cells("hargajual").Value

        Latihan_24B_46110024.waty(Latihan_24B_46110024.KB_46110024.Text)

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan  24A

1. Klick Star Debugging 
2. Data Daftar Barang akan secara otomatis muncul pada object datagridview klik tombol Detail Transaksi untuk menampilkan form 24B yang berisi detail Barang