Latihan_25A_46110002

Deskripsi Form Latihan 25A

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

Object Label

Terdapat 1 label (Daftar Barang).

Object Button                                                      

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

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Membuat Koneksi

Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb"

Membuat data tabel   

Dim datatable As New DataTable

Membuat adapter

Dim YANI As New OleDb.OleDbDataAdapter

Mengisi data base kedalam data tabel

YANI.Fill(datatable)

YANI.Dispose()

DGV1_46110002.DataSource = datatable

Untuk menampilkan form Latihan_23B_461100002

If Latihan_25B_46110002.Visible = False Then

Latihan_25B_46110002.Show()

 Else : Latihan_25B_46110002.Activate()

 End If

Even

Load

Click

Langkah-Langkah Penyelesaian Form Latihan_25A_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_25A_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_25A_46110002
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim datatable As New DataTable
    Private Sub Latihan_25A_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim YANI As New OleDb.OleDbDataAdapter
        YANI = New OleDb.OleDbDataAdapter("select*from barang", conect)
        datatable.Rows.Clear()
        YANI.Fill(datatable)
        YANI.Dispose()

        DGV1_46110002.DataSource = datatable

    End Sub
    Private Sub DETAIL1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DETAIL1_46110002.Click
        If Latihan_25B_46110002.Visible = False Then
            Latihan_25B_46110002.Show()
        Else : Latihan_25B_46110002.Activate()
        End If

        Latihan_25B_46110002.KB_46110002.Text = DGV1_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_25B_46110002.NB_46110002.Text = DGV1_46110002.CurrentRow.Cells("namabarang").Value
        Latihan_25B_46110002.HJ_46110002.Text = DGV1_46110002.CurrentRow.Cells("hargajual").Value
        Latihan_25B_46110002.JB_46110002.Text = DGV1_46110002.CurrentRow.Cells("persediaanawal").Value

        Latihan_25B_46110002.ilda(Latihan_25B_46110002.KB_46110002.Text)
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 25A

·         Klik star debugging, trus klik latihan 25A

·          Maka akan muncul hasil seperti ini