Latihan_23A_46110002

Deskripsi Form Latihan 23A

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

Object Label

Terdapat 1 label (Master Transaksi).

Object Button                                                      

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

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=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat data tabel   

Dim tabel As New DataTable

Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

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

Untuk menampilkan dan mengaktifkan form Latihan_23B_461100007

System.Object, ByVal e As System.EventArgs) Handles KLIK_46110002.Click

        If Latihan_23B_46110002.Visible = False Then

            Latihan_23B_46110002.Show()

        Else : Latihan_23B_46110002.Activate() : Latihan_23B_46110007.Activate()

        End If

Even

Load

Click

Langkah-Langkah Penyelesaian Form Latihan_23A_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_23A_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Klik kanan, view kode lalu  masukkan rumus

 Public Class Latihan_23A_46110002
    Dim koneksi 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_46110002_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()

        DGV_46110002.DataSource = tabel
    End Sub

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

        Latihan_23B_46110002.NOTRANS_46110002.Text = DGV_46110002.CurrentRow.Cells("notrans").Value
        Latihan_23B_46110002.TGL_46110002.Value = DGV_46110002.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_23B_46110002.JT_46110002.Text = DGV_46110002.CurrentRow.Cells("jenistransaksi").Value
        Latihan_23B_46110002.ILDA(Latihan_23B_46110002.NOTRANS_46110002.Text)
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 23A

·         Klik star debugging, trus klik latihan 23A

·          Maka akan muncul hasil seperti ini