Latihan_23A_36110034

Deskripsi penyelesaian

Form Latihan_23A_36110034  terdapat satu object yaitu DataGreatView

Object Label

Terdapat satu objek lebel yang bertuliskan MASTER TRANSAKSI yang berfungsi sebagai judul form latihan ini.

Object DataGreatview

Terdapat satu object datagreatview. Pada datagreatview yang pertama akan menampilkan table yang berasal dari data acces, yang dimana akan muncul semua kolom pada table yang berjudul mastertransaksi. 

Object Button

Terdapat satu objek button yang bertuliskan klik yang berfungsi untuk menampilkan form latihan_23B_36110034 yang akan menampilkan no trans ,tanggal transaksi dan jenis transaksi yang sesuai dengan tempat kursor berada pada form latihan_23A_36110034

 Script Unique 

Buttom "filter”

. If latihan_23B_36110034.Visible = False Then

            latihan_23B_36110034.Show()

        Else

            latihan_23B_36110034.Activate()

        End If

        latihan_23B_36110034.NR_36110034.Text = DGV1_36110034.CurrentRow.Cells("NOTRANS").Value

        latihan_23B_36110034.DTP_36110034.Value = DGV1_36110034.CurrentRow.Cells("TANGGALTRANSAKSI").Value

        latihan_23B_36110034.JN_36110034.Text = DGV1_36110034.CurrentRow.Cells("JENISTRANSAKSI").Value

        latihan_23B_36110034.KUSUMA(latihan_23B_36110034.NR_36110034.Text)

    End Sub

End Class

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

 

3.   ganti nama textbox dan button menggunakan "Properties Window".

 

4.      membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_23A_36110034

Public Class latihan_23A_36110034

    Dim ANDINI As New DataTable

    Dim ARDIAN As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

    Private Sub latihan_23A_36110034_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim MAW As New OleDb.OleDbDataAdapter

        MAW = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ARDIAN)

        MAW.Fill(ANDINI)

        MAW.Dispose()

        DGV1_36110034.DataSource = ANDINI

    End Sub

    Private Sub KL_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KL_36110034.Click

        If latihan_23B_36110034.Visible = False Then

            latihan_23B_36110034.Show()

        Else

            latihan_23B_36110034.Activate()

        End If

        latihan_23B_36110034.NR_36110034.Text = DGV1_36110034.CurrentRow.Cells("NOTRANS").Value

        latihan_23B_36110034.DTP_36110034.Value = DGV1_36110034.CurrentRow.Cells("TANGGALTRANSAKSI").Value

        latihan_23B_36110034.JN_36110034.Text = DGV1_36110034.CurrentRow.Cells("JENISTRANSAKSI").Value

        latihan_23B_36110034.KUSUMA(latihan_23B_36110034.NR_36110034.Text)

    End Sub

End Class

5.      Jalankan program dengan “start debugging”.