latihan_23A_46110023

Deskripsi Form Latihan 23A

Dalam form Latihan 23A  terdapat 3 Object yaitu object Label, Object DataGridView, dan Object Button.

Object Label
Terdapat 1 objek label yaitu "Master Transaksi"

Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan daftar barang berupa tabel.

Object Button
Terdapat 1 object button yaitu "klik". Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_26B_46110023. 

Langkah-langkah membuat dan menjalankan form latihan 23A

 Langkah-langkah atau cara membuat form pada latihan 23A ini sama saja dengan langkah-langkah membuat  form pada latihan-latihan sebelumnya,. Yang membedakan hanyalah desaign formnya dan scriptnya. Pada  form ini bentuk formnya seperti berikut:

Setelah desaignnya jadi, klik kanan pada desaidn kemudian pilih view code maka akan muncul halaman baru lalu masukkan script seperti dibawah ini:

Public Class LATIHAN_23A_46110023

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_46110023_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_46110023.DataSource = tabel

    End Sub

Private Sub KLIK_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_46110023.Click

        If LATIHAN_23B_46110023.Visible = False Then

           LATIHAN_23B_46110023.Show()

        Else : LATIHAN_23B_46110023.Activate()

        End If

LATIHAN_23B_46110023.NOMOR_46110023.Text = dgv_46110023.CurrentRow.Cells("notrans").Value

LATIHAN_23B_46110023.DATE_46110023.Value = dgv_46110023.CurrentRow.Cells("tanggaltransaksi").Value

LATIHAN_23B_46110023.JNS_46110023.Text = dgv_46110023.CurrentRow.Cells("jenistransaksi").Value

        LATIHAN_23B_46110023.uly(LATIHAN_23B_46110023.NOMOR_46110023.Text)

    End Sub

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

      End Sub

    End Class

Setelah script 23a selesai, selesaikan pula atihan 23B jalankan program dengan mengklik start debugging.

Script Unique

=>  menampilkan form Latihan_23B_46110023 
      If LATIHAN_23B_46110023.Visible = False Then

           LATIHAN_23B_46110023.Show()

Else : LATIHAN_23B_46110023.Activate()

        End If

=> mengisi textbox yang ada pada Latihan_23B_46110023 

LATIHAN_23B_46110023.NOMOR_46110023.Text =           dgv_46110023.CurrentRow.Cells("notrans").Value

LATIHAN_23B_46110023.DATE_46110023.Value = dgv_46110023.CurrentRow.Cells("tanggaltransaksi").Value

LATIHAN_23B_46110023.JNS_46110023.Text = dgv_46110023.CurrentRow.Cells("jenistransaksi").Value

=> menjalankan procedure pengambilan data

LATIHAN_23B_46110023.uly(LATIHAN_23B_46110023.NOMOR_46110023.Text)

Even
Load