Latihan_26B_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 26B

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_26B_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada Data Grid View sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Begitu juga pada object TextBox kecuali Object Label tidak usah.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_26B_46110043

    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")

    Dim BON As New DataTable

    Public Sub TRINITA(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        Dim tri As String

        tri = "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 evan As Integer = 0

        Dim atar As Integer = 0

        For Each row As DataRow In meong.Rows            evan += row("Unit")

            atar += row("Jumlah")

        Next

        unit46110043.Text = evan

        jumlah46110043.Text = atar

    End Sub

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

       WORLD46110043.DataSource = BON

    End Sub

End Class

·  Untuk menjalankan form tekan F5 

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan_26B

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

Object Label

Terdapat 4 label pada form latihan 25B (Kode Barang, Harga Barang, Harga Jual dan Jumlah Barang).

Object TextBox                                                             

Terdapat 4 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_26A_46110043.

Object DataGridView

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

Script Unique

Membuat Koneksi

Dim CONNECT 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 BON As New DataTable

Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

Even

Load