Latihan_23a_46110027

Deskripsi Form Latihan23a

  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_46110027”.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Untuk menampilkan dan mengaktifkan form Latihan_23B_461100027
Private Sub KLIK_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_46110027.Click
        If Latihan_23B_46110027.Visible = False Then
            Latihan_23B_46110027.Show()
        Else : Latihan_23B_46110027.Activate()
        End If

        Latihan_23B_46110027.TB1_46110027.Text = dgv_46110027.CurrentRow.Cells("notrans").Value
       
        Latihan_23B_46110027.rsty(Latihan_23B_46110027.TB1_46110027.Text)

    End Sub

Even 

Load

ButtonClick

CellContentClick

• Langkah-langkah Membuat Form 23A

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_23  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

 
         Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name"

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 
Public Class Latihan_23A_46110027

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

    Private Sub Latihan_23A_46110027_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from mastertransaksi", koneksi)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()

        dgv_46110027.DataSource = tabel

    End Sub

    Private Sub KLIK_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_46110027.Click
        If Latihan_23B_46110027.Visible = False Then
            Latihan_23B_46110027.Show()
        Else : Latihan_23B_46110027.Activate()
        End If

        Latihan_23B_46110027.TB1_46110027.Text = dgv_46110027.CurrentRow.Cells("notrans").Value
        Latihan_23B_46110027.TB2_46110027.Text = dgv_46110027.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_23B_46110027.TB3_46110027.Text = dgv_46110027.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110027.rsty(Latihan_23B_46110027.TB1_46110027.Text)

    End Sub

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

    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil hasil sbb: