Latihan_24B_46110006

Deskripsi Form Latihan_24B_46110006

Dalam form Latihan 24B hanya terdapat Object Label, Object TextBox, dan Object DataGridView

Object Label
Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".

Object TextBox
Terdapat 4 obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_24A_46110006.

Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan detail transaksi dari 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 24B :

            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_24B_46110006”

3. Buatlah desain seperti berikut :

 

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

Public Class Latihan_24B_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

    Public Sub FITRI(ByVal a As String)

        Dim adapter As New OleDb.OleDbDataAdapter

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

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        adapter.Dispose()

        DTG_46110006.DataSource = tabel

    End Sub

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

    End Sub

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

    End Sub

End Class

                             -   Klik STAR DEBUGING,lalu muncul form seperti berikut:

                            -    Selamat Mencoba.