latihan_23A_36110036

Deskripsi latihan_23A_36110036

A.           Object Label

Terdapat satu label yang bertuliskan master transaksi.

B.            Object Data gridview

    Terdapat satu object data gridview yang digunakan untuk menampilkan data table yang telah dibuat.

C.           Object button

    Terdapat satu button yang bertuliskan klik yang digunakan untuk menampilkan detail dari master transaksi yang terdiri dari notrans, tanggaltransaksi, dan jenistransaksi.

D.           Script Unique

    Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan   latihan_23A_36110036.

E.          Even

Latihan_23A_36110036_Load  
klik_36110036_Click

Langkah-langkah mengerjakan latihan_23A_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

       

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

           

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.      Kemudian buat form seperti dibawah ini: 

                 

6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk    menjalankan  latihan_23A_36110036

Public Class latihan_23A_36110036

    Dim rosyana As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim anna As New DataTable

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

        Dim rima As New OleDb.OleDbDataAdapter

        rima = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", rosyana)

        anna.Rows.Clear()

        rima.Fill(anna)

        rima.Dispose()

        data_36110036.DataSource = anna

    End Sub

    Private Sub klik_36110036_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles klik_36110036.Click

        If latihan_23B_36110036.Visible = False Then

            latihan_23B_36110036.Show()

        Else

            latihan_23B_36110036.Activate()

        End If

        latihan_23B_36110036.Show()

        latihan_23B_36110036.nomor_36110036.Text = data_36110036.CurrentRow.Cells("NOTRANS").Value

        latihan_23B_36110036.tgl_36110036.Text = data_36110036.CurrentRow.Cells("TANGGALTRANSAKSI").Value

        latihan_23B_36110036.jenis_36110036.Text = data_36110036.CurrentRow.Cells("JENISTRANSAKSI").Value

        latihan_23B_36110036.anna()

    End Sub

       End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.