Latihan_23a_36110029

v Deskripsi Latihan_23a_36110029

Object Label

Terdapat satu label (yang bertuliskan master transaksi).

Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan master transaksi.

Object Button

Terdapat satu object button (Klik). Button Klik digunakan untuk menampilkan detail dari master transaksi yang ada di datagridview. Detail dari master transaksi itu akan muncul pada form Latihan_23b_36110029.

Script Unique

Untuk button Klik:

KLIK_36110029_Click

Even

KLIK_36110029_Click

Latihan_23a_36110029_Load

 

v   Prosedur  Latihan_23a_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_23a_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_23a_36110029
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DOKUMEN\SEMESTER 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
    Dim hana As New DataTable

    Private Sub Latihan_23A_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim B As New OleDb.OleDbDataAdapter
        B = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", a)
        hana.Rows.Clear()
        B.Fill(hana)
        B.Dispose()
        data_36110029.DataSource = hana
    End Sub

    Private Sub klik_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles klik_36110029.Click
        If Latihan_23b_36110029.Visible = False Then
            Latihan_23b_36110029.Show()
        Else
            Latihan_23b_36110029.Activate()
        End If

        Latihan_23b_36110029.Show()
        Latihan_23b_36110029.nomor_36110029.Text = data_36110029.CurrentRow.Cells("NOTRANS").Value
        Latihan_23b_36110029.tgl_36110029.Value = data_36110029.CurrentRow.Cells("TANGGALTRANSAKSI").Value
        Latihan_23b_36110029.jenis_36110029.Text = data_36110029.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan_23b_36110029.CUCU()
    End Sub
End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.