latihan_23A_46110004

Deskripsi form latihan 23

Dalam form Latihan 23A hanya terdapat tiga object yaitu DataGriedView, Label dan Button

Object datagridview :
Dalam form ini terdapat sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object label :
Dalam form ini terdapat sebuah object label yang bertuliskan master transaksi.

Object label :
Dalam form ini terdapat sebuah object label yang bertuliskan klik.Button ini berfungsi untuk menampilkan detail transaksi dari data yang ada di latihan 23A pada latihan 23B.

Script Unique :
Perintah untuk menampilkan dan mengaktifkan form latihan 23B

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

        latihan_23B_46110004.no_46110004.Text = dg_46110004.CurrentRow.Cells("notrans").Value
        latihan_23B_46110004.tgl_46110004.Text = dg_46110004.CurrentRow.Cells("tanggaltransaksi").Value
        latihan_23B_46110004.jns_46110004.Text = dg_46110004.CurrentRow.Cells("jenistransaksi").Value

        latihan_23B_46110004.sulhi(latihan_23B_46110004.no_46110004.Text)

Even :
Load
ButtonClick

Langkah-langkah penyelesaian form latihan 23A

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_23A_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_23A_46110004
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim husni As New DataTable

    Private Sub latihan_23A_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sulhi As New OleDb.OleDbDataAdapter
        sulhi = New OleDb.OleDbDataAdapter("select*from mastertransaksi", conect)
        husni.Rows.Clear()
        sulhi.Fill(husni)
        sulhi.Dispose()

        dg_46110004.DataSource = husni
    End Sub

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

        latihan_23B_46110004.no_46110004.Text = dg_46110004.CurrentRow.Cells("notrans").Value
        latihan_23B_46110004.tgl_46110004.Text = dg_46110004.CurrentRow.Cells("tanggaltransaksi").Value
        latihan_23B_46110004.jns_46110004.Text = dg_46110004.CurrentRow.Cells("jenistransaksi").Value

        latihan_23B_46110004.sulhi(latihan_23B_46110004.no_46110004.Text)

    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini: