Latihan_23a_23b_46110037

Design Latihan 23a dan 23b

Setelah Debugging

Deskripsi Form Latihan 23A dan 23B

*Pada Latihan_23A_46110037 terdapat 3 object yaitu Label, DataGridVie dan Button.

*Pada Latihan_23B_46110037 terdapat 3 object yaitu Label, DataGridView dan Textbox

Object Label

*Pada Latihan_23A_46110037 terdapat 1 Label yaitu Master Transaksi

*Pada Latihan_23B_46110037 terdapat 4 Label yaitu Detail Transaksi; Nomor; Tanggal dan Jenis

Object DataGridView

*Pada Latihan_23A_46110037 terdapat 1 DataGridView yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access

*Pada Latihan_23B_46110037 terdapat 1 DataDridView yang akan Menampilkan detai transaksi dari data yang dipilih di Latihan_23A_46110037

Object Button

Pada Latihan_23A_46110037 terdapat 1 button yaitu tombol klik. Apabila tombol ini diclick maka detail dari transaksi yang dipilih akan muncul pada form Latihan_23B_46110037

Object Textbox

Pada Latihan_23B_46110037 Terdapat 3 textbox yaitu Nomor; Tanggal dan Jenis

Script Unique

1. Script Unique pada Latihan_23A_46110037

* Menampilkan Latihan 23B_46110037

If LATIHAN_23B_46110037.Visible = False Then

            LATIHAN_23B_46110037.Show()

        Else : LATIHAN_23B_46110037.Activate()

        End If

* Mengisi textbox pada Latihan_23B_46110037

        LATIHAN_23B_46110037.NO46110037.Text = DGV46110037.CurrentRow.Cells("notrans").Value

        LATIHAN_23B_46110037.TGL46110037.Text = DGV46110037.CurrentRow.Cells("tanggaltransaksi").Value

        LATIHAN_23B_46110037.Jenis46110037.Text = DGV46110037.CurrentRow.Cells("jenistransaksi").Value

* Menjalankan procedure pengambilan data

LATIHAN_23B_46110037.uly(LATIHAN_23B_46110037.NO46110037.Text)

2. Script Unique pada Latihan_23B_46110037

*Membuat procedure untuk pengambilan data

Public Sub uly(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", HUBUNG)

        INNA.Rows.Clear()

        adapter.Fill(INNA)

Even

Load

Propertty

Default

Langkah-Langkah Menjalankan Form Latihan 23A dan 23B

Click Start Debugging. Kemudian pilih salah satu transaksi yang anda inginkan untuk melihatdetailnya kemudian click tombol Klik maka form Latihan 23B_46110037 akan muncul dengan menampilkan detail dari transaksi yang dipilih pada Form Latihan 23A.

Langkah-langkah Menyelesaikan Form Latihan 23A dan 23B

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_23A_46110037 dan Latihan_23B_46110037) dengan menggunakan DataGridView, Label dan Button
• Ganti nama DataGridView dan Button di properties-Name,
• Click Kanan pada design Latihan_23A_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_23A_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

    Private Sub latihan_23A_46110037_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", HUBUNG)

        INNA.Rows.Clear()

        adapter.Fill(INNA)

        adapter.Dispose()

        DGV46110037.DataSource = INNA

    End Sub

    Private Sub KLIK46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK46110037.Click

        If LATIHAN_23B_46110037.Visible = False Then

            LATIHAN_23B_46110037.Show()

        Else : LATIHAN_23B_46110037.Activate()

        End If

        LATIHAN_23B_46110037.NO46110037.Text = DGV46110037.CurrentRow.Cells("notrans").Value

        LATIHAN_23B_46110037.TGL46110037.Text = DGV46110037.CurrentRow.Cells("tanggaltransaksi").Value

        LATIHAN_23B_46110037.Jenis46110037.Text = DGV46110037.CurrentRow.Cells("jenistransaksi").Value

        LATIHAN_23B_46110037.uly(LATIHAN_23B_46110037.NO46110037.Text)

    End Sub

End Class

• Selesaikan juga Script pada Latihan_23A_46110037dengan cara:
• Pilih design form Latihan_23B_46110037, kemudian Click kanan dan pilih View Code, setelah itu ketik script seperti dibawah ini:

Public Class LATIHAN_23B_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

    Public Sub uly(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", HUBUNG)

        INNA.Rows.Clear()

        adapter.Fill(INNA)

        DGV23B46110037.DataSource = INNA

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form