Latihan_26B_46110006

Deskripsi Form Latihan_26B_46110006

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

Object Label

Terdapat 6 label pada form latihan 26B (Kode Barang, Harga Barang, Harga Jual, Jumlah Barang, Total Unit dan Total Jumlah).

Object TextBox                                                             

Terdapat 6 object textbox (4 status input, 2 status read only) yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_26A_46110006.

Object DataGridView

Terdapat 1 object datagridview berfungsi untuk menampilkan data tabel yang diinginkan (sesuai dengan detail pada text box).

Script Unique

Membuat Koneksi

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

   

Membuat data tabel   

Dim meong As New DataTable

Membuat data adapter

Dim adapter As New OleDb.OleDbDataAdapter  

    

Even

Load

Property

Property TextBox => ReadOnly = True

    Cara Membuat From Latihan 26B :

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_26B_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_26B_46110006

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

    Dim data As New DataTable

    Public Sub FITRY(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        Dim ff As String

        ff = "SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'"

        adapter = New OleDb.OleDbDataAdapter(ff, conect)

        adapter.Fill(data)

        Dim izhar As Integer = 0

        Dim sul As Integer = 0

        For Each row As DataRow In data.Rows

            izhar += row("Unit")

            sul += row("Jumlah")

        Next

        tu_46110006.Text = izhar

        tj_46110006.Text = sul

    End Sub

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

        DGV_46110006.DataSource = data

    End Sub

End Class

5.     Klik STAR DEBUGING, setelah mengklik tombol "Detai Transaksi" lalu muncul form seperti berikut:

6.      Selamat Mencoba.