Latihan_24A_46110020

Deskripsi Form Latihan 24A

Form latihan 24A terdapat 3 object yaitu  DataGriedView, Label, Dan Button.

Object DataGridView

Dalam form 24A ini terdapat Satu objek DataGridView yang berfungsi untuk menampilkan data dari SQL

Object Label :

Dalam form 24A ini terdapat  Satu item yang bertuliskan Master Transaksi.

Object Button :

Dalam form 24A ini terdapat Satu item yang bertuliskan Detail Transaksi yang dimana tombol ini berfungsi untuk menampilkan hasil analisa dari data yang ada dari data SQL.

Cara Untuk Membuat Form Latihan 24A :

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

 

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

 

6.      Kemudian mulailah membuat form 24A dengan mengunakan Label, DataGriedView, dan Button.

 

7.       Lalu buatlah sesuai contoh latihan 24A dengan menggunakan Label, DataGrieView, dan Button  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_24A_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 tabel As New DataTable

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

        Dim mobil As New OleDb.OleDbDataAdapter

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

        tabel.Rows.Clear()

        mobil.Fill(tabel)

        mobil.Dispose()

        DTV_46110020.DataSource = tabel

    End Sub

    Private Sub DTR_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTR_46110020.Click

        If Latihan_24B_46110020.Visible = False Then

            Latihan_24B_46110020.Show()

        Else : Latihan_24B_46110020.Activate()

        End If

        Latihan_24B_46110020.Kodebarang_46110020.Text = DTV_46110020.CurrentRow.Cells("barang.kodebarang").Value

        Latihan_24B_46110020.NamaBarang_46110020.Text = DTV_46110020.CurrentRow.Cells("namabarang").Value

        Latihan_24B_46110020.JumlahBarang_46110020.Text = DTV_46110020.CurrentRow.Cells("persediaanawal").Value

        Latihan_24B_46110020.HargaJual_46110020.Text = DTV_46110020.CurrentRow.Cells("hargajual").Value

        Latihan_24B_46110020.CINTA(Latihan_24B_46110020.Kodebarang_46110020.Text)

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 24A:

1.        Pertama, Klik start debugging, Maka Secara otomatis akan muncul seperti di bawah ini :

2.      Form ini akan menampilkan  Data Transaksi Barang dari SQL yaitu pada DataGriedView menampilkan (Kode Barang, Nama Barang, Persediaan Awal, Harga Jual, ID, Notrans, detailtransaksi.KodeBarang, Unit dan Harga).

3.      Setelah itu apabila anda Mengarahkan kursor anda pada Notrans yang anda inginkan seperti “ B001” dan anda menekan tombol Klik, Maka akan muncul Deteail Transaksi Dari Notrans B001. Hasil ini anda akan melihat dari Latihan_24B_46110020 Seleanjutnya 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 tabel As New DataTable

Untuk membersikan datatable  :

tabel.Rows.Clear()

Untuk membuat DataAdapter :

Dim adapter As New OleDb.OleDbDataAdapter

Untuk mengisi data base kedalam datatable :

adapter.Fill(tabel)

adapter.Dispose()

Untuk menampilkan hasil Detail dari Transaksi  :

If Latihan_24B_46110020.Visible = False Then

            Latihan_24B_46110020.Show()

        Else : Latihan_24B_46110020.Activate()

        End If

Even

Clik

Load