Latihan_44_46110038

Deskripsi Form Latihan_44_46110038:

Form Latihan_44_46110038 hanya terdapat 3 object yaitu button, datagridview, dan Microsoft chart 6.0.

Object Datagridview

Di Latihan_44_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Object Microsoft chart 6.0

Di Latihan_44_46110038  ada 1 Microsoft chart 6.0 yang digunakan untuk menampilkan grafik.

Object Button

Di Latihan_44_46110038 ada 5 button yang berisi teks Grafik Batang, Grafik Line, Grafik Lingkaran, Grafik Batang 3D, dan Grafik Line 3D.

Script Unique

Memasukkan data kedalam baris dan kolom tertentu:

   Dim BARIS As Integer = 0

        For Each x As DataRow In table.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = x("bulan")

            chart46110038.Column = 1

            chart46110038.Data = x("unit")

            chart46110038.Column = 2

            chart46110038.Data = x("rata-rata harga") / 1000

            chart46110038.Column = 3

            chart46110038.Data = x("jumlah") / 10000

        Next

Even

Load

Cara Membuat Form Latihan_44_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_44_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_44_46110038

    Dim erma As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")

    Dim table As New DataTable

    Private Sub LATIHAN_44_46110038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim merah As New OleDb.OleDbDataAdapter

        merah = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", erma)

        table.Rows.Clear()

        merah.Fill(table)

        data46110038.DataSource = table

        merah.Dispose()

        chart46110038.ColumnCount = 3

        chart46110038.RowCount = table.Rows.Count

        Dim BARIS As Integer = 0

        For Each x As DataRow In table.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = x("bulan")

            chart46110038.Column = 1

            chart46110038.Data = x("unit")

            chart46110038.Column = 2

            chart46110038.Data = x("rata-rata harga") / 1000

            chart46110038.Column = 3

            chart46110038.Data = x("jumlah") / 10000

        Next

    End Sub

    Private Sub line46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub batang46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batang46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub l3d46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles l3d46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

    Private Sub B3d46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b3d46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub lingkaran46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lingkaran46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

End Class

Untuk menjalankan Latihan_44_46110038, klik start debugging untuk melihat apakah rumus tersebut bisa terbaca atau tidak.

Latihan_43_46110038

Deskripsi Form Latihan_43_46110038:

Form Latihan_43_46110038 hanya terdapat 2 object yaitu datagridview, dan Microsoft chart 6.0.

Object Datagridview

Di Latihan_43_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Object Microsoft chart 6.0

Di Latihan_43_46110038  ada 1 Microsoft chart 6.0 yang digunakan untuk menampilkan grafik.

Script Unique

Memasukkan data kedalam baris dan kolom tertentu:

Dim BARIS As Integer = 0

        For Each X As DataRow In tabel.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = X("KODE BARANG")

            chart46110038.Column = 1

            chart46110038.Data = X("UNIT") / 1000

            chart46110038.Column = 2

            chart46110038.Data = X("RATA-RATA HARGA") / 1000

            chart46110038.Column = 3

            chart46110038.Data = X("JUMLAH") / 1000

        Next

Even

Load

Cara Membuat Form Latihan_43_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_43_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_43_46110038

    Dim erma As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATA GRAFIK.ACCDB")

    Dim tabel As New DataTable

    Private Sub Latihan_43_46110038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * FROM QPembelianPerJenisBarang", erma)

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        data46110038.DataSource = tabel

        adapter.Dispose()

        Dim BARIS As Integer = 0

        For Each X As DataRow In tabel.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = X("KODE BARANG")

            chart46110038.Column = 1

            chart46110038.Data = X("UNIT") / 1000

            chart46110038.Column = 2

            chart46110038.Data = X("RATA-RATA HARGA") / 1000

            chart46110038.Column = 3

            chart46110038.Data = X("JUMLAH") / 1000

        Next

    End Sub

End Class

Untuk menjalankan Latihan_43_46110038, klik start debugging untuk melihat apakah rumus tersebut bisa terbaca atau tidak.

Latihan_383940_46110038

Deskripsi Form Latihan_383940_46110038:

Form Latihan_383940_46110038 hanya terdapat 2 object yaitu button dan datagridview.

Object Button

Di Latihan_383940_46110038  ada 2 object button (Pilih dan Batal).

Object Datagridview

Di Latihan_383940_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Script Unique

-

Even

Load

Cara Membuat Form Latihan_383940_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_383940_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_383940_46110038

    Dim Connect As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataMajemuk.ACCDB")

    Dim Table As New DataTable

    Public Sub merah()

        'mendeklarasikan kendaraan

        Dim adapter As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        adapter = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", Connect)

        Table.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        adapter.Fill(Table)

        adapter.Dispose()

    End Sub

    Private Sub Latihan383940_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        merah()

        Data46110038.DataSource = Table

    End Sub

End Class

Latihan_40B_46110038

Deskripsi Form Latihan_40B_46110038:

Form Latihan_40B_46110038 hanya terdapat 6 object yaitu label, textbox, button, datagridview, toolstatusstrip, dan Datetimepicker.

Object Label

Di Latihan_40B_46110038  ada 4 label yang bertuliskan No. Transaksi, Tanggal, Jenis Transaksi, dan Total.

Object Textbox

Di Latihan_40B_46110038  ada 3 textbox, 2 status input yang digunakan untuk memasukkan data: no transaksi dan jenis transaksi, dan 1 status readonly yang digunakan untuk menampilkan jumlah data yang telah di input.

Object Toolstatusstrip

Di Latihan_40B_46110038  ada 2 object toolsstatusstrip.

Object Button

Di Latihan_40B_46110038  ada 1 object button, Simpan. Tombol Simpan digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada datagridview). Tombol simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK).

Object DateTimePicker

Di Latihan_40B_46110038 ada 1 object datetimepicker yang digunakan untuk menentukan tanggal transaksi.

Object Datagridview

Di Latihan_40B_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Script Unique

-

Even

Load

click

Cara Membuat Form Latihan_40B_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_40B_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_40B_46110038

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")

    Dim DT As New DataTable

    Dim baru(1) As DataColumn

    Public Sub tot()

        Dim total As Integer

        For Each hasil As DataRow In DT.Rows

            total += hasil("Jumlah")

        Next

        total46110038.Text = total

    End Sub

    Public Sub makecolumn()

        'mendeklarasikan kendaraan

        Dim merah As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        merah = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & nomor46110038.Text & "'", Jalan)

        'bersihkan data

        DT.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        merah.Fill(DT)

        merah.Dispose()

        'untuk menampilkan isi datatable ke data grid view

        DT.Columns("Kodebarang").DefaultValue = ""

        DT.Columns("NamaBarang").DefaultValue = ""

        DT.Columns("unit").DefaultValue = 0

        DT.Columns("harga").DefaultValue = 0

        DT.Columns("jumlah").DefaultValue = 0

        DT.Columns("NamaBarang").ReadOnly = True

        baru(0) = DT.Columns("kodebarang")

        DT.PrimaryKey = baru

        Data46110038.DataSource = DT

    End Sub

    Private Sub Latihan40b_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        makecolumn()

    End Sub

    Private Sub data_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Data46110038.CellEndEdit

        'mengosongkan data

        If e.ColumnIndex = 0 Then

            Data46110038.CurrentRow.Cells("NamaBarang").Value = ""

            Data46110038.CurrentRow.Cells("Unit").Value = 0

            Data46110038.CurrentRow.Cells("harga").Value = 0

            Data46110038.CurrentRow.Cells("Jumlah").Value = 0

            'mencari data yang ada di tabel

            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar

            Pencari.AturPencarianDataBase("barang", "kodebarang", Data46110038.CurrentRow.Cells("kodebarang").Value, 1, Jalan)

            If Pencari.JumlanBaris > 0 Then

                Data46110038.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)

                Data46110038.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)

            Else

                MsgBox("the data is not found")

                If Latihan_383940_46110038.ShowDialog = Windows.Forms.DialogResult.OK Then

                    Data46110038.CurrentRow.Cells("kodebarang").Value = Latihan_383940_46110038.Data46110038.CurrentRow.Cells("KodeBarang").Value

                    Data46110038.CurrentRow.Cells("Namabarang").Value = Latihan_383940_46110038.Data46110038.CurrentRow.Cells("namabarang").Value

                End If

            End If

            'mengitung jumlah dan total

        ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then

            Data46110038.CurrentRow.Cells("jumlah").Value = Data46110038.CurrentRow.Cells("unit").Value * Data46110038.CurrentRow.Cells("harga").Value

            tot()

        End If

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110038.Click

        'Memeriksa isi textbox

        If nomor46110038.Text.Length = 0 Then

            MsgBox("Please, insert the Number of the transaction")

            Exit Sub

        End If

        If jenis46110038.Text.Length = 0 Then

            MsgBox("Please, insert the type of the transaction")

            Exit Sub

        End If

        If DT.Rows.Count = 0 Then

            MsgBox("the data is none")

            Exit Sub

        End If

        'Memeriksa nomor transaksi pd master transaksi

        If Tool246110038.Text <> nomor46110038.Text Then

            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

            PENCARI.AturPencarianDataBase("mastertransaksi", "notrans", nomor46110038.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then

                MsgBox("The data has been exist please insert new data")

                Exit Sub

            End If

        End If

        'Proses delete dan Penyimpanan ke tabel master transaksi

        Dim data As Integer = Val(Tool246110038.Text)

        Dim kawan As New OleDb.OleDbCommand

        kawan = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans='" & Tool246110038.Text & "'", Jalan)

        Jalan.Open()

        kawan.ExecuteNonQuery()

        Jalan.Close()

        kawan = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans='" & Tool246110038.Text & "'", Jalan)

        Jalan.Open()

        kawan.ExecuteNonQuery()

        Jalan.Close()

        kawan = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & nomor46110038.Text & "',#" & tanggal46110038.Value.Month & "/" & tanggal46110038.Value.Day & "/" & tanggal46110038.Value.Year & "#,'" & jenis46110038.Text & "')", Jalan)

        Jalan.Open()

        kawan.ExecuteNonQuery()

        Jalan.Close()

        'penyimpanan isi datatable ke detail transaksi

        For Each erma As DataRow In DT.Rows

            kawan = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & nomor46110038.Text & "','" & erma("kodebarang") & "'," & erma("unit") & "," & erma("harga") & ")", Jalan)

            Jalan.Open()

            kawan.ExecuteNonQuery()

            Jalan.Close()

        Next

        kawan.Dispose()

        'Mengosongkan isi text box

        nomor46110038.Text = ""

        jenis46110038.Text = ""

        'Mengosongkan baris datatable

        DT.Rows.Clear()

        'mengambildata

        Latihan_40A_46110038.merah()

        'menutup form

        Me.Close()

    End Sub

End Class

Untuk menjalankan Latihan_40B _46110038, klik start debugging.