Latihan_26a_46110001

A.   Object-object dalam Latihan_26A_46110001 :

    1.      Object Label

     Terdapat satu label (yang bertuliskan daftar barang).

    2.      Object DataGridView

     Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

    3.      Object Button

Terdapat satu object button (Detail Transaksi). Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_26B_46110001.

B.    Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_26A_46110001.

C.     Even

latihan_26a_46110001_Load

DT_46110001.Click

D.   Cara penyelesaian

Proses penyelesaian

•  Langkah pertama dalam membuat form/ latihan 26a ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

• Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

 

• Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

• atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

• Buatlah form seperti gambar dibawah ini,

• Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_26A_46110001

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

        DGF_46110001.DataSource = data

    End Sub

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

        Latihan_26b_46110001.TB1_46110001.Text = DGF_46110001.CurrentRow.Cells("kodebarang").Value
        Latihan_26b_46110001.TB2_46110001.Text = DGF_46110001.CurrentRow.Cells("namabarang").Value
        Latihan_26b_46110001.TB3_46110001.Text = DGF_46110001.CurrentRow.Cells("hargajual").Value
        Latihan_26b_46110001.TB4_46110001.Text = DGF_46110001.CurrentRow.Cells("persediaanawal").Value

        Latihan_26b_46110001.BAHE(Latihan_26b_46110001.TB1_46110001.Text)
    End Sub
End Class

• langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini