Latihan_43_46110001

Latihan_43_46110001

Object-object dalam Latihan_43_46110001

Deskripsi Form Latihan_43_46110001

Form Latihan_43_46110001 terdapat Dua object yaitu  Data Grid View dan Microsoft Chart Control.

Objek DataGridView

Terdapat satu objek DataGridView yang berguna untuk menampilkan data yang terdapat pada database

Objek Microsoft Chart Control

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Even

load 

Prosedur Penyelesaian

Langkah pertama dalam membuat form/ latihan 43 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_43_46110001
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan43_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110001.DataSource = gitik

        chart_46110001.RowCount = gitik.Rows.Count
        chart_46110001.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110001.Row = sekarang
            chart_46110001.RowLabel = kake("Kode Barang")

            chart_46110001.Column = 1
            chart_46110001.Data = kake("Unit")

            chart_46110001.Column = 2
            chart_46110001.Data = kake("Rata-Rata Harga") / 10000

            chart_46110001.Column = 3
            chart_46110001.Data = kake("Jumlah") / 10000

        Next
    End Sub
End Class

·         langkah selanjutnya Jalankan program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan 46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

·         Setelah mengatur startup form/ jika anda memiliki form navigator maka langkah yang perlu anda lakukan adalah ganti nama startup dengan nama navigator yang telah anda buat  setelah itu, klik start debug untuk menjalankan form latihan 43 seperti dibawah ini :

 

·         Setelah menekan tombol debug maka tampilan latihan 43 sebagai berikut :

·         Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan peringatan.