Latihan_23A_46110043

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

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_23A_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_23A_46110043

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

    Dim tabel As New DataTable

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

        Dim ADVENTURE As New OleDb.OleDbDataAdapter

        ADVENTURE = New OleDb.OleDbDataAdapter("select*from mastertransaksi", CONECT)

        tabel.Rows.Clear()

        ADVENTURE.Fill(tabel)

        ADVENTURE.Dispose()

        LIFE_46110043.DataSource = tabel

    End Sub

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

        If Latihan_23B_46110043.Visible = False Then

            Latihan_23B_46110043.Show()

        Else : Latihan_23B_46110043.Activate()

        End If

        Latihan_23B_46110043.nomor_46110043.Text = LIFE_46110043.CurrentRow.Cells("notrans").Value

        Latihan_23B_46110043.tanggal_46110043.Value = LIFE_46110043.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_23B_46110043.jenis_46110043.Text = LIFE_46110043.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110043.uly(Latihan_23B_46110043.nomor_46110043.Text)

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles LIFE_46110043.CellContentClick

    End Sub

End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan_23A

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

Object Label
Terdapat 1 object Label yang digunakan sebagai penulisan judul "MASTER TRANSAKSI"

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan datatabel .

Object Button

Terdapat 1 object button (Klik). Tombol klik digunakan untuk menampilkan detail dari master transaksi yang ada pada form “Latihan_23B_46110043”.

Script Unique

Membuat Koneksi

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

Membuat data tabel   

Dim tabel As New DataTable

Membuat adapter

 Dim ADVENTURE As New OleDb.OleDbDataAdapter

Membersihkan data tabel

tabel.Rows.Clear()

Mengisi data base kedalam data tabel

ADVENTURE.Fill(tabel)

        LIFE_46110043.DataSource = tabel

Menghancurkan adapter yang sudah dipakai

ADVENTURE.Dispose()

Untuk menampilkan dan mengaktifkan form Latihan_23B_46110043

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

        If Latihan_23B_46110043.Visible = False Then

            Latihan_23B_46110043.Show()

        Else : Latihan_23B_46110043.Activate()

        End If

Even

Load

ButtonClick

CellContentClick