Latihan_26B_46110020

Deskripsi Form Latihan 26B

Form latihan 26B terdapat 3 Object yaitu Label, TextBox, dan DataGriedView .

Object DataGridView

Dalam 26B terdapat 1 Datagriedview yang berfungsi menampilkan hasil analisa secara Deatail dari transaksi SQL yang berada pada form 26A.

Object Label :

Dalam Form 26B terdapat Tujuh item Label yang bertuliskan (Daftar Barang, Nama Barang, Kode Barang, Harga Jual, Jumlah Barang, Total Unit, Total Jumlah).

Object TextBox :

Dalam form 26B ini terdapat Empat Berstatus Input Dan Dua Berstatus ReadOnly item ini  yang berguna untuk menampilkan data dari SQL yang berada pada form 26A dan yang berstatus ReadOnly berfungsi untuk menampilkan Total Unit dan Total Jumlah Dari data transaksi.  

Cara Untuk Membuat Form Latihan 26B:

1.        Pertama Bukalah Project yang telah anda buat sebelumnya.

2.      Pilih dan  Buka Project dalam visual basic.

3.      Kemudian pilih Add Windows form

4.      Lalu add new item dan rename file “form.vb menjadi Latihan_26B_46110020”

5.      Setelah namenya di rename pilih add lalu muncullah form seperti ini :

6.      Kemudian mulailah membuat form 26B dengan mengunakan Label, DataGriedView, dan TextBox.

7.       Lalu buatlah sesuai contoh latihan 26B dengan menggunakan Label, DataGrieView, dan TextBox  maka akan menjadi seperti ini :

8.      Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_26B_46110020

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Tugas\Semester 5\Aplikasi Kom 4\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim meong As New DataTable

    Public Sub SAYANG(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        Dim shoell As String

        shoell = "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(shoell, koneksi)

        adapter.Fill(meong)

        Dim YUNI As Integer = 0

        Dim AYU As Integer = 0

        For Each row As DataRow In meong.Rows

            YUNI += row("Unit")

            AYU += row("Jumlah")

        Next

        TU_46110020.Text = YUNI

        TJ_46110020.Text = AYU

    End Sub

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

        DGV_46110020.DataSource = meong

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 26B:

1.        Bukalah atau jalankanlah terlebih dahulu latihan 25A arahkan kursor anda pada Notrans yang anda inginkan seperti “ B001” dan anda menekan tombol Klik, Maka akan muncul Deteail Transaksi Dari Kode Barang B001.Hasilnya Seperti Berikut :

 

2.      Selamat Mencoba J

Script unik

Untuk membuat Connection  :

Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\Tugas\Semester 5\Aplikasi Kom 4\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

Untuk membuat datatable :

Dim meong As New DataTable

Untuk membuat DataAdapter :

adapter = New OleDb.OleDbDataAdapter(shoell, koneksi)

        adapter.Fill(meong)

Untuk membuat hasil Total unit dan Total Jumlah :

Dim YUNI As Integer = 0

Dim AYU As Integer = 0

        For Each row As DataRow In meong.Rows

            YUNI += row("Unit")

            AYU += row("Jumlah")

        Next

        TU_46110020.Text = YUNI

        TJ_46110020.Text = AYU

Even

Load