Latihan_24a_46110001

object-object yang terdapat dalam latihan 24a

1.      Object Label

Terdapat 1 label pada form latihan_24A_46110001 yaitu (Daftar Barang).

2.    Object Button 

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

3.     Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

4.    Script Unique

Membuat Koneksi

Dim jembatan 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 mobil As New OleDb.OleDbDataAdapter

Membersihkan data tabel

tabel.Rows.Clear()

Mengisi data base kedalam data tabel

mobil.Fill(tabel)

ISI_46110001.DataSource = tabel

Menghancurkan adapter yang sudah dipakai

mobil.Dispose()

Binding source menjadi data source pada datagridview

ISI_46110001.DataSource = tabel

Untuk menampilkan form Latihan_24B_461100001

If Latihan_24B_46110001.Visible = False Then

      Latihan_24B_46110001.Show()

Else : Latihan_24B_46110001.Activate()

End If

5.     Even

Load

ButtonClick

6.    penyelesaian

•  Langkah pertama dalam membuat form/ latihan 23a 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_24a_46110001
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Private Sub latihan_23a_46110001_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mobil As New OleDb.OleDbDataAdapter
        mobil = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", jembatan)
        tabel.Rows.Clear()
        mobil.Fill(tabel)
        mobil.Dispose()

        DGF24A_46110001.DataSource = tabel
    End Sub
    Private Sub detail_46110001_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DT_46110001.Click
        If Latihan_24b_46110001.Visible = False Then
            Latihan_24b_46110001.Show()
        Else : Latihan_24b_46110001.Activate()
        End If

        Latihan_24b_46110001.TB1_46110001.Text = DGF24A_46110001.CurrentRow.Cells("barang.kodebarang").Value
        Latihan_24b_46110001.TB2_46110001.Text = DGF24A_46110001.CurrentRow.Cells("namabarang").Value
        Latihan_24b_46110001.TB3_46110001.Text = DGF24A_46110001.CurrentRow.Cells("persediaanawal").Value
        Latihan_24b_46110001.TB4_46110001.Text = DGF24A_46110001.CurrentRow.Cells("hargajual").Value


        Latihan_24b_46110001.BAHRI(Latihan_24b_46110001.TB1_46110001.Text)
    End Sub

    Private Sub dgf24a_46110001_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGF24A_46110001.CellContentClick
    End Sub
End Class

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