Latihan_23A_36110046

Deskripsi & Prosedur Form Latihan_23A_36110046

Deskripsi Form Latihan_23A_36110046

Pada Form Latihan 23A terdapat 3 object, yaitu datagridview, button, dan label. Pada Latihan ini terdapat hal yang baru, yakni menggunakan dua form (program yang berhubungan). Untuk form yang berhubungan silahkan lihat Latihan 23B.

Object Pada Form

Object DataGridView

Terdapat 1 objek datagridview (seperti terlihat gambar di atas)

Object Button

Terdapat 1 objek button (seperti terlihat gambar di atas)

Object Label

Terdapat 1 objek label (seperti terlihat gambar di atas)

Script Unique

Memerintahkan Script untuk form lain

Latihan_23B_36110046.NO_36110046.Text=DGV_36110046.CurrentRow.Cells("notrans").Value

Event

ButtonClick(aktivasi program lain)

Form Load

Property

- 

 

Prosedur Form Latihan_23A_36110046

Langkah-langkah mengerjakan Latihan 23A, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat text pada form dengan menggunakan label, seperti pada gambar

7.        Buat  objek semua objek sesuai dengan design pada latihan 23A dengan toolbox, ikuti gambar dibawah ini:

8.        Setelah design sudah bagus, saatnya untuk membuat script

9.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_23A_36110046

    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=d:\SEMESTER 5\aplikasi komputer 4\Rhepoet keren\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim DT As New DataTable

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

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from mastertransaksi", CONNECT)

        DT.Rows.Clear()

        adapter.Fill(DT)

        adapter.Dispose()

        DGV_36110046.DataSource = DT

    End Sub

    Private Sub KLIK_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK_36110046.Click

        If Latihan_23B_36110046.Visible = False Then

            Latihan_23B_36110046.Show()

        Else : Latihan_23B_36110046.Activate()

        End If

        Latihan_23B_36110046.NO_36110046.Text = DGV_36110046.CurrentRow.Cells("notrans").Value

        Latihan_23B_36110046.TGL_36110046.Value = DGV_36110046.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_23B_36110046.JNS_36110046.Text = DGV_36110046.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_36110046.QP(Latihan_23B_36110046.NO_36110046.Text)

    End Sub

End Class

10.    Silahkan jalankan program anda. Wassalam.