Latihan_23A_46110009

Latihan_23A_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah

2.      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 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_46110009”.

ü Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

      3.  Rumus

Private Sub latihan_23a_008_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_46110009.DataSource = tabel

 End Sub

 Private Sub KLIK_46110009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK_46110009.Click

        If Latihan_23B_46110009.Visible = False Then

            Latihan_23B_46110009.Show()

        Else : Latihan_23B_46110009.Activate()

        End If

        Latihan_23B_46110009.NM_46110009.Text = DGV_46110009.CurrentRow.Cells("notrans").Value

        Latihan_23B_46110009.TGL_46110009.Text = DGV_46110009.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_23B_46110009.JN_46110009.Text = DGV_46110009.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110009.ULHY(Latihan_23B_46110009.NM_46110009.Text)

    End Sub

End Class