Latihan_26A_46110006

Deskripsi Form Latihan_26A_46110006

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

Object Label

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

Object Button                                                                

Terdapat 1 object button (Detail Transaksi). Tombol ini digunakan untuk menampilkan detail dari transaksi, yang ada pada form “Latihan_26B_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 26A :

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_26A_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_26A_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 data As New DataTable

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

        Dim adapter As New OleDb.OleDbDataAdapter

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

        data.Rows.Clear()

        adapter.Fill(data)

        adapter.Dispose()

        DTG_46110006.DataSource = data

    End Sub

    Private Sub detail_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles detail_46110006.Click

        If Latihan_26B_46110006.Visible = False Then

            Latihan_26B_46110006.Show()

        Else : Latihan_26B_46110006.Activate()

        End If

        Latihan_26B_46110006.KB_46110006.Text = DTG_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_26B_46110006.NB_46110006.Text = DTG_46110006.CurrentRow.Cells("namabarang").Value

        Latihan_26B_46110006.HJ_46110006.Text = DTG_46110006.CurrentRow.Cells("hargajual").Value

        Latihan_26B_46110006.JB_46110006.Text = DTG_46110006.CurrentRow.Cells("persediaanawal").Value

        Latihan_26B_46110006.FITRY(Latihan_26B_46110006.KB_46110006.Text)

    End Sub

End Class

                        -     Klik STAR DEBUGING,lalu muncul form seperti berikut

            -  Selamat Mencoba