Latihan_46_46110022

07.23 by Unknown

Deskripsi Form Latihan_46 46110022
Dalam form ini terdapat 2 buah object yaitu text object  dan line object.

Text Object
Terdapat 3 buah text object yaitu (Latihan 46, PT X dan Daftar Barang).

Line Object
Line object berguna untuk membuat pada kolom dan baris pada report yang dibuat.

Langkah-Langkah Membuat Form Latihan 46 46110022

1     Buka form latihan yang telah dibuat sebelumnya.

2     Pilih menu project kemudian pilih add new item seperti berikut :




3      Kemudian akan muncul tampilan seperti di bawah ini, lalu tuliskan nama file report pada   kolom name lalu klik add seperti berikut :



4      Setelah itu akan muncul tampilan seperti berikut, pilih As a blank report seperti berikut :



5      Kemudian akan muncul tampilan seperti berikut :



6      Lalu, pada field explorer, klik kanan pada “database field” lalu pilih “database expert”,  kemudian akan muncul tampilan seperti di bawah ini. Setelah itu, pilih “tables” kemudian pilih data apa yang diperlukan dalam report yang akan dibuat, lalu bawa ke selected tables.


7        Setelah “Database Fields” yang ada dalam “Fields Explorer” berisi data base yang telah
d   dipilih sebelumnya, buat “main report “ seperti berikut :


    Dalam menentukkan Jumlah persediaan awal dan Jumlah rata-rata harga jual yaitu :
a. Field PERSEDIAANAWAL : klik kanan field PERSEDIAANAWAL pilih insert ==> summary. Setelah itu pada kotak Calculate this summary, pilih SUM. kemudian klik OK.
b. Field HARGAJUAL : klik kanan field HARGAJUAL pilih insert ==> summary. Setelah itu pada kotak Calculate this summary, pilih AVERAGE. kemudian klik OK


8       Setelah report selesai dibuat, lihat hasilnya pada “main report preview”, dan hasilnya seperti berikut :


9       Selamat mencoba, semoga berhasil :)







0 komentar

Latihan_383940_46110022

19.39 by Unknown

Deskripsi Form Latihan_383940 46110022
Dalam form ini terdapat 2 buah object yaitu object DataGriedView dan button.

Object DataGriedView
Terdapat sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Object Button
Terdapat 5 buah object button yaitu Pilih dan Batal.

Script Unique
    Tidak terdapat script unique pada form latihan ini.

Even

Load
Click

Langkah-Langkah Membuat Form Latihan 383940_46110022

1. Buat form baru seperti langkah berikut :


2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :


3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_383940_46110022
    Dim alfa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim ega As New DataTable
    Public Sub noldi()
        Dim Mobil As New OleDb.OleDbDataAdapter
        Mobil = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", alfa)
        ega.Rows.Clear()
        Mobil.Fill(ega)
        Mobil.Dispose()

    End Sub


    Private Sub Latihan_38_39_40_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        noldi()
        dgv46110022.DataSource = ega
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :


     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 383940 seperti berikut :


    7. Selamat mencoba, semoga berhasil :)

0 komentar

Latihan_44_46110022

19.23 by Unknown

Deskripsi Form Latihan_44 46110022
Dalam form ini terdapat 3 buah object yaitu object DataGriedView, Microsoft Chart Control dan button.

Object DataGriedView
Terdapat sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Object Microsoft Chart Control
Terdapat sebuah objek Microsoft Chart Control dalam bentuk grafik untuk menampilkan pendapatan dan biaya setiap tahunnya.

Object Button
Terdapat 5 buah object button yaitu Grafik batang, Grafik Line, Grafik Lingkar, Grafik batang 3D dan Grafik Line 3D.

Script Unique
1.   Menampilkan grafik berbentuk batang 2D :
grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

2.   Menampilkan grafik berbentuk garis 2D :
grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

3.   Menampilkan grafik berbentuk lingkaran :
grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

4.   Menampilkan grafik berbentuk batang 3D :
grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

5.   Menampilkan grafik berbentuk garis 3D :
grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
   
Even

Load
Click

Langkah-Langkah Membuat Form Latihan 44_46110022

1. Buat form baru seperti langkah berikut :



2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :


3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_44_46110022
    Dim alfa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
    Dim ega As New DataTable
  
    Private Sub Latihan_44_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", alfa)
        ega.Rows.Clear()
        kacci.Fill(ega)
        kacci.Dispose()
        dgv46110022.DataSource = ega

        grafik46110022.RowCount = ega.Rows.Count
        grafik46110022.ColumnCount = 3

        Dim sekarang As Integer = 0

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

            grafik46110022.Row = sekarang
            grafik46110022.RowLabel = kake("Bulan")

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

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

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

        Next
    End Sub

    Private Sub GB146110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB146110022.Click
        grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46110022.Click
        grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub
  
    Private Sub GLK46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLK46110022.Click
        grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub
   
    Private Sub GB246110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB246110022.Click
        grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GL246110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL246110022.Click
        grafik46110022.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :


     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 44 seperti berikut :


    7. Selamat mencoba, semoga berhasil :)

0 komentar
Langganan: Postingan (Atom)