Latihan_24A_46110006

Deskripsi Form Latihan_24A_46110006

Dalam form Latihan 24A hanya terdapat Object Label, Object DataGridView, dan Object Button.

Object Label
Terdapat 1 objek label yaitu "Daftar Barang"

Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan daftar barang.

Object Button
Terdapat 1 object button yaitu "detail transaksi". Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_24B_46110006.

Script Unique
Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya. 

Even
Load    

    Cara Membuat From Latihan 24A :

          

          1.  Pilih item Toolbar “Project” kemudian pilih “Add Windows From” 

2.  Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_24A_46110006” 

3.  Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.     

4.     Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas. 

Public Class Latihan_24A_46110006

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=E:\ACCESS\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim tabel As New DataTable

    Private Sub Latihan_24A_46110006_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", koneksi)

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        adapter.Dispose()

        DTG_46110006.DataSource = tabel

    End Sub

    Private Sub DETAIL_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DETAIL_46110006.Click

        If Latihan_24B_46110006.Visible = False Then

            Latihan_24B_46110006.Show()

        Else : Latihan_24B_46110006.Activate()

        End If

        Latihan_24B_46110006.KB_46110006.Text = DTG_46110006.CurrentRow.Cells("barang.kodebarang").Value

        Latihan_24B_46110006.NB_46110006.Text = DTG_46110006.CurrentRow.Cells("namabarang").Value

        Latihan_24B_46110006.HJ_46110006.Text = DTG_46110006.CurrentRow.Cells("persediaanawal").Value

        Latihan_24B_46110006.JB_46110006.Text = DTG_46110006.CurrentRow.Cells("hargajual").Value

        Latihan_24B_46110006.FITRI(Latihan_24B_46110006.KB_46110006.Text)

    End Sub

End Class

5.      Klik STAR DEBUGING,lalu muncul form seperti berikut:

6.      Selamat Mencoba.