Latihan_25a_46110001

        

 1.   object-object yang terdapat dalam latihan 25a ini adalah

a.   Object Label

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

b.   Object button

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

c.    Object DataGridView

Hanya terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

d.   Even

latihan_25a_46110001_Load

DT_46110001_Click

e.    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 tabel As New DataTable

·         Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

·         Membersihkan data tabel

tabel.Rows.Clear()

·         Mengisi data base kedalam data table

bahri.Fill(datatable)

bahri.Dispose()

·         Menghancurkan adapter yang sudah dipakai

bahri.Dispose()

·         Mengisi data base kedalam data tabel

bahri.Fill(datatable)

DGF_46110001.DataSource = datatable

·         Untuk menampilkan form Latihan_25a_461100001

If Latihan_25b_46110001.Visible = False Then

    Latihan_25b_46110001.Show()

    Else : Latihan_25b_46110001.Activate()

    End If

                  2.   Proses penyelesaian

•  Langkah pertama dalam membuat form/ latihan 25a 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_25a_46110001
    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_46110001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bahri As New OleDb.OleDbDataAdapter
        bahri = New OleDb.OleDbDataAdapter("select*from barang", conect)
        datatable.Rows.Clear()
        bahri.Fill(datatable)
        bahri.Dispose()

        DGF_46110001.DataSource = datatable

    End Sub

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

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

        Latihan_25b_46110001.bahri(Latihan_25b_46110001.TB1_46110001.Text)
    End Sub
End Class

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