Latihan_19_46110001

  Latihan_19_46110001

A.    Object dalam Latihan_19_46110001:

         pada form atau pada latihan 19 ini, Hanya ada satu object, yaitu object DataGridView .

B.    Script Unique

Untuk script unique, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian   Latihan_19_46110001.

C.    Even

Latihan_19_46110001Load

D.    Cara penyelesaian

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

    Dim BAHRI As New DataTable

    Private Sub Latihan_19_46110001Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim BAHE As New OleDb.OleDbDataAdapter
        BAHE = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
        BAHRI.Rows.Clear()
        BAHE.Fill(BAHRI)
        DGF19_46110001.DataSource = BAHRI
        BAHE.Dispose()

    End Sub

    Private Sub DGF19_46110001_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGF19_46110001.CellContentClick

    End Sub
End Class

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