Latihan_34A_36110038

Deskripsi Latihan_33A_36110038

Form Latihan_33A terdapat tiga object yaitu label, DataGridView dan Button:

Object MenuStrip

Terdapat satu menustrip yang bertuliskan Barang.

Object ToolStrip

Terdapat satu menustrip yang terdiri dari dua toolstripmenuitem (yang bertuliskan daftar barang dan input barang). Toolstripmenuitem DaftarBarang digunakan untuk menampilkan Latihan_34B_36110048. Sedangkan Toolstripmenuitem NamaBarang digunakan untuk menampilkan Latihan_34C_36110048.

Object DataGridView

Terdapat satu data gridview yang digunakan untuk menampilkan field atau kolom KODEBARANG,  NAMABARANG, HARGAJUAL dan JUMLAHBARANG dari table BARANG  yang ada pada DATABARANG.

Script Unique 

·         ToolStrip”DaftarBarang" (DaftarBarang_36110038)

If Latihan_34B_36110038.Visible = False Then

            Latihan_34B_36110038.MdiParent = Me

            Latihan_34B_36110038.Show()

        Else

            Latihan_34B_36110038.Activate()

            Latihan_34B_36110038.WindowState = FormWindowState.Normal

        End If

·         ToolStrip”NamaBarang" (NamaBarang_36110038)

If Latihan_34C_36110038.Visible = False Then

            Latihan_34C_36110038.MdiParent = Me

            Latihan_34C_36110038.Show()

        Else

            Latihan_34C_36110038.Activate()

            Latihan_34C_36110038.WindowState = FormWindowState.Normal

        End If

        Latihan_34C_36110038.KobarLama_36110038.Text = ""

        Latihan_34C_36110038.kobar_36110038.Text = ""

        Latihan_34C_36110038.Nabar_36110038.Text = ""

        Latihan_34C_36110038.Haju_36110038.Text = ""

        Latihan_34C_36110038.jml_36110038.Text = ""

Even

DaftarBarang_36110038_Click

NamaBarang_36110038_Click

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_34A_36110038 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_34A

Public Class Latihan_34A_36110038

    Dim connec As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=03")

    Dim table As New DataTable

    Public Sub widhe()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", connec)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

    End Sub

  

    Private Sub DaftarBarang_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarang_36110038.Click

        If Latihan_34B_36110038.Visible = False Then

            Latihan_34B_36110038.MdiParent = Me

            Latihan_34B_36110038.Show()

        Else

            Latihan_34B_36110038.Activate()

            Latihan_34B_36110038.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub NamaBarang_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NamaBarang_36110038.Click

        If Latihan_34C_36110038.Visible = False Then

            Latihan_34C_36110038.MdiParent = Me

            Latihan_34C_36110038.Show()

        Else

            Latihan_34C_36110038.Activate()

            Latihan_34C_36110038.WindowState = FormWindowState.Normal

        End If

        Latihan_34C_36110038.KobarLama_36110038.Text = ""

        Latihan_34C_36110038.kobar_36110038.Text = ""

        Latihan_34C_36110038.Nabar_36110038.Text = ""

        Latihan_34C_36110038.Haju_36110038.Text = ""

        Latihan_34C_36110038.jml_36110038.Text = ""

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.