Latihan_25A_46110006

Deskripsi Form Latihan_25A_46110006

Pada form latihan 25A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label

Terdapat 1 label pada form latihan 25A (Daftar Barang).

Object Button

Terdapat 1 object button (Detail Transaksi). Tombol ini digunakan untuk menampilkan detail dari transaksi, yang ada pada form “Latihan_25B_46110006”.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya. 

Even

Load

ButtonClick

Cara Membuat From Latihan 25A :

                        1.    Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_25A_46110006”

3.  Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.   

4.     Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_25A_46110006

    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=E:\ACCESS\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim datatable As New DataTable

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

        Dim shoell As New OleDb.OleDbDataAdapter

        shoell = New OleDb.OleDbDataAdapter("select*from barang", conect)

        datatable.Rows.Clear()

        shoell.Fill(datatable)

        shoell.Dispose()

        dtg_46110006.DataSource = datatable

    End Sub

    Private Sub DETAIL_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DETAIL_46110006.Click

        If Latihan_25B_46110006.Visible = False Then

            Latihan_25B_46110006.Show()

        Else : Latihan_25B_46110006.Activate()

        End If

        Latihan_25B_46110006.KB_46110006.Text = dtg_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_25B_46110006.NB_46110006.Text = dtg_46110006.CurrentRow.Cells("namabarang").Value

        Latihan_25B_46110006.HJ_46110006.Text = dtg_46110006.CurrentRow.Cells("hargajual").Value

        Latihan_25B_46110006.JB_46110006.Text = dtg_46110006.CurrentRow.Cells("persediaanawal").Value

        Latihan_25B_46110006.FITRY(Latihan_25B_46110006.KB_46110006.Text)

    End Sub

End Class

             -    Klik STAR DEBUGING,lalu muncul form seperti berikut:

             -    Selamat Mencoba.