Latihan_23A_46110024

DESKRIPSI FORM LATIHAN 23A

Form Latihan  ini Terdapat tiga object yaitu label, datagridview, dan button

Object Label

Dalam form latihan ini terdapat sebuah object label yang bertuliskan Master Transaksi

Object Data Gridview

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

Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan klik yang digunakan untuk menampilkan form latihan 23B

Script  Unique

Untuk menampilkan form latihan 23B

If Latihan_23B_46110024.Visible = False Then

            Latihan_23B_46110024.Show()

        Else : Latihan_23B_46110024.Activate()

        End If

Untuk mengisi textbox dan datagridview pada form 23B

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

       

Mengambil data dari form 23B

Latihan_23B_46110024.waty(Latihan_23B_46110024.NOTRANS_46110024.Text)

Even

Load

Buttonclick

Langkah- Langkah Membuat Form Latihan  23A

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

 

2. Ganti nama sesuai dengan nama latihan

 

3. Lalu pilih object yang ada di latihan 23A

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  23A

1. Klick Start Debugging 
2. Data Master Transaksi akan secara otomatis muncul pada object datagridview klik tombol klik untuk menampilkan form 23B yang berisi detail transaksi