Latihan_23A_46110006

Deskripsi Form Latihan_23A_46110006

Pada form latihan 23A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label

Terdapat 1 label pada form latihan 23A (Master Transaksi).

Object Button

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

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Membuat Koneksi

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

Membuat data tabel 

Dim tabel As New DataTable

Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

Membersihkan data tabel

tabel.Rows.Clear()

Mengisi data base kedalam data tabel

adapter.Fill(tabel)

ISI_46110006.DataSource = tabel
 

Menghancurkan adapter yang sudah dipakai

adapter.Dispose()

Untuk menampilkan dan mengaktifkan form Latihan_23A_46110006

Private Sub KLIK_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KLIK_46110007.Click

        If Latihan_23B_46110006.Visible = False Then

            Latihan_23B_46110006.Show()

        Else : Latihan_23B_46110006.Activate()

        End If

Even

Load

ButtonClick

CellContentClick

     Cara Membuat From Latihan 23A :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.  Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_23A_46110006”

3.  Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.     

4.     Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_23A_46110006

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=E:\ACCESS\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim tabel As New DataTable

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

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from mastertransaksi", koneksi)

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        adapter.Dispose()

        DTG_46110006.DataSource = tabel

    End Sub

    Private Sub KLIK_46110006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK_46110006.Click

        If Latihan_23B_46110006.Visible = False Then

            Latihan_23B_46110006.Show()

        Else : Latihan_23B_46110006.Activate()

        End If

        Latihan_23B_46110006.NO_46110006.Text = DTG_46110006.CurrentRow.Cells("notrans").Value

        Latihan_23B_46110006.TL_46110006.Text = DTG_46110006.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_23B_46110006.J_46110006.Text = DTG_46110006.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110006.FITRI(Latihan_23B_46110006.NO_46110006.Text)

    End Sub

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

    End Sub

End Class

                

           -     Klik STAR DEBUGING,lalu muncul form seperti berikut:

           -     Selamat Mencoba.