Latihan_23B_46110024

DESKRIPSI FORM LATIHAN 23B

Form Latihan  ini Terdapat empat object yaitu label, textbox, datetimepicker, dan datagridview

Object Label

Dalam form latihan ini terdapat empat label yang bertuliskan detail transaksi, no.transaksi, tgl.transaksi, dan jenis transaksi
 

Object  Textbox

Dalam form ini dua  buah textbox untuk menampilkan detail transaksi yang ada pada form 23A

Object Date Time Picker

Terdapat satu date time picker digunakan untuk menampilkan tanggal dari detail transaksi

Object Data Gridview

Terdapat  sebuah object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan.

Script  Unique

Tidak ada script unik pada latihan ini

Langkah- Langkah Membuat Form Latihan  23B

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

2. Ganti nama sesuai dengan nama latihan anda ingingkan

3. Lalu pilih object yang ada di latihan 23B

4. Buat form sampai menghasilkan form seperti di bawah ini

 

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_23A_46110024

    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_46110024_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()

        DGV46110024.DataSource = tabel

    End Sub

    Private Sub KLIK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK.Click

        If Latihan_23B_46110024.Visible = False Then

            Latihan_23B_46110024.Show()

        Else : Latihan_23B_46110024.Activate()

        End If

        Latihan_23B_46110024.NOTRANS_46110024.Text = DGV46110024.CurrentRow.Cells("notrans").Value

        Latihan_23B_46110024.TGL_46110024.Value = DGV46110024.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_23B_46110024.JT_46110024.Text = DGV46110024.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110024.waty(Latihan_23B_46110024.NOTRANS_46110024.Text)

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan 23B

Form ini akan jalan dengan sendirinya jika anda mengklik button klik yang bertuliskan klik pada latihan 23A