Latihan_23A_46110055

Deskripsi 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_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique
Untuk menampilkan dan mengaktifkan form Latihan_23B_461100055 :

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

        Latihan_23B_46110055.nomor46110055.Text = dgv46110055.CurrentRow.Cells("notrans").Value
        Latihan_23B_46110055.tgl46110055.Text = dgv46110055.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_23B_46110055.jenis46110055.Text = dgv46110055.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110055.fby(Latihan_23B_46110055.nomor46110055.Text)

    End Sub

Even  
Load
ButtonClick
CellContentClick

Cara  membuat Latihan 23A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 23A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_23A_46110055

    Dim connect 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_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim feby As New OleDb.OleDbDataAdapter

        feby = New OleDb.OleDbDataAdapter("select*from mastertransaksi", connect)

        tabel.Rows.Clear()

        feby.Fill(tabel)

        feby.Dispose()

        dgv46110055.DataSource = tabel

    End Sub

    Private Sub klik46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik46110055.Click

        If Latihan_23B_46110055.Visible = False Then

            Latihan_23B_46110055.Show()

        Else : Latihan_23B_46110055.Activate()

        End If

        Latihan_23B_46110055.nomor46110055.Text = dgv46110055.CurrentRow.Cells("notrans").Value

        Latihan_23B_46110055.tgl46110055.Text = dgv46110055.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_23B_46110055.jenis46110055.Text = dgv46110055.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110055.fby(Latihan_23B_46110055.nomor46110055.Text)

    End Sub

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

    End Sub

End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :