Latihan_25A_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 25A

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_25A_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 Button 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_25A_46110043

    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim datatable As New DataTable

    Private Sub Latihan_25A_46110043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim nita As New OleDb.OleDbDataAdapter

        nita = New OleDb.OleDbDataAdapter("select*from barang", conect)

        datatable.Rows.Clear()

        nita.Fill(datatable)

        nita.Dispose()

        DORA46110043.DataSource = datatable

    End Sub

    Private Sub PUSH46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PUSH46110043.Click

        If Latihan_25B_46110043.Visible = False Then

            Latihan_25B_46110043.Show()

        Else : Latihan_25B_46110043.Activate()

        End If

        Latihan_25B_46110043.KD46110043.Text = DORA46110043.CurrentRow.Cells("kodebarang").Value

        Latihan_25B_46110043.NB46110043.Text = DORA46110043.CurrentRow.Cells("namabarang").Value

        Latihan_25B_46110043.HB46110043.Text = DORA46110043.CurrentRow.Cells("hargajual").Value

        Latihan_25B_46110043.JB46110043.Text = DORA46110043.CurrentRow.Cells("persediaanawal").Value

        Latihan_25B_46110043.uly(Latihan_25B_46110043.KD46110043.Text)

    End Sub

End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan_25A

Pada Form Latihan_25A pada gambar diatas terdapat 1 Object DataGridView, 1 Object Label dan 1 Object Button.

Object Label

Terdapat 1 label pada form latihan 25A (Daftar Barang).

Object Button                                                                

Terdapat 1 object button (Detail Transaksi). Tombol ini digunakan untuk menampilkan detail dari transaksi, yang ada pada form “Latihan_25b_46110043”.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

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 datatabel As New DataTable

Membuat adapter

Dim nita As New OleDb.OleDbDataAdapter

Membersihkan data tabel

datatabel.Rows.Clear()

Mengisi data base kedalam data tabel

nita.Fill(tabel)

DORA46110043.DataSource = tabel

Menghancurkan adapter yang sudah dipakai

nita.Dispose()

Binding source menjadi data source pada datagridview

DORA46110043.DataSource = tabel

Untuk menampilkan form Latihan_24B_46110043

If Latihan_25B_46110043.Visible = False Then

            Latihan_25B_46110043.Show()

        Else : Latihan_25B_46110043.Activate()

        End If

Even

Load

ButtonClick