Latihan 23A_36001155

PROSEDUR LATIHAN 23A:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat satu label (yang bertuliskan master transaksi).

Ø  Buat satu object datagridview yang digunakan untuk menampilkan master transaksi.

Ø  Setelah itu buat satu object button (Klik). Button Klik digunakan untuk menampilkan detail dari master transaksi yang ada di datagridview.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_23A_36001155

    Dim Masnur As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim tabelMasnur As New DataTable

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

        Dim truckMasnur As New OleDb.OleDbDataAdapter

        truckMasnur = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", Masnur)

        tabelMasnur.Clear()

        truckMasnur.Fill(tabelMasnur)

        truckMasnur.Dispose()

        Masnur1_36001155.DataSource = tabelMasnur

    End Sub

    Private Sub klik_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_36001155.Click

        If Latihan_23B_36001155.Visible = False Then

            Latihan_23B_36001155.Show()

        Else

            Latihan_23B_36001155.Activate()

        End If

        Latihan_23B_36001155.Show()

        Latihan_23B_36001155.Nomor_36001155.Text = Masnur1_36001155.CurrentRow.Cells("NOTRANS").Value

        Latihan_23B_36001155.Tgl_36001155.Value = Masnur1_36001155.CurrentRow.Cells("TANGGALTRANSAKSI").Value

        Latihan_23B_36001155.Jenis_36001155.Text = Masnur1_36001155.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan_23B_36001155.Mas()

    End Sub

End Class