Latihan 60

Deskripsi

1. objek button
untuk membuka form latihan 53 yang nantinya berisi report

2. objek textbox
untuk no transaksi dan nama kasir yang nantinya akan ditampilkan kedalam report


even : button click

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class latihan_60_46110008

    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110008.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New latihan_59_46110008, Application.StartupPath, "data report.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110008.Text)

        'Mengatur(Filter)
        Latihan_53_46110008.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110008.Text & "'"

        'Menampilkan for
        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If
    End Sub
End Class

Latihan 59

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat... setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw

Latihan 58

Deskripsi

1. objek datagridview
objek ini digunakan untuk menampilkan form latihan 53

2. objek datetimepicker
objek ini berfungsi untuk menginput tanggal yang akan disortir pada report yang ingin ditampilkan

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class latihan_58_46110008

    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110004.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110008, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110008.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_46110008.Value.Month & "/" & DTP1_46110008.Value.Day & "/" & DTP1_46110008.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_46110008.Value.Month & "/" & DTP2_46110008.Value.Day & "/" & DTP2_46110008.Value.Year & "#"


        'Menampilkan form 53
        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If
    End Sub
End Class

Latihan 57

Deskripsi

1. objek button
objek ini berfungsi untuk memunculkan form 53 yang berisi report yang sudah disortir berdasarkan harga

2. objek textbox
objek ini berfungsi untuk memeasukkan harga yang ingin disortir pada report

even : button click

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class latihan_57_46110008


    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110004.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110008, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110008.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110008.Text

        'Menampilkan form 53
        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If
    End Sub
End Class

Latihan 56

Deskripsi

1. objek button
utuk menampilkan form latihan 53 yang nantinya berisi crystal report yang sudah disortir isinya berdasarkan kode barang

2. objek textbox
berfungsi untuk menginput kode barang yang ingin disortir

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class latihan_56_46110008


    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110008.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110008, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110008.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & isi_46110008.Text & "'"

        'Menampilkan form 53
        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If
    End Sub
End Class

Latihan 55

Deskripsi

1. objek datagridview
objek ini untuk membuka form 53 yang nantinya membuka sebuah form crystal report

even : button click

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 5. masukkan script berikut

Public Class latihan_55_46110008

    Private Sub view_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110008.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_45_46110008, Application.StartupPath, "data report.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53
        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If
    End Sub
End Class

Latihan 54

Deskripsi

1. objek button
objek button pada form kali ini berfungsi untuk membuka form latihan 53 yang akan memperlihatkan isi dari sebuah crystal report

even : button click

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class latihan_54_46110008


    Private Sub view_46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110008.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_45_46110008

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = laporan

        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If

    End Sub
End Class

Latihan 53

Deskripsi

1. objek crystalreportviewer
objek ini berfungsi untuk menampilkan form crystal report yang sudah dibuat

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. form ini belum dimasukkan script

Latihan 52

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat...setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw

Latihan 51

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat.. setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw 

Latihan 50

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat... setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw 

Latihan 49

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat... setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw 

Latihan 48

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat... setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw 

Latihan 47

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat...misalnya yang dibutuhkan pada form kali ini adalah field kode barang, nama barang, persediaan awal, dan harga jual. setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw

Latihan 46

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat... setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw

Latihan 45

1. di solution explorer, klik kanan lalu add==> new item ==> reporting ==> crystal report

2. setelah itu akan muncul kotak dialog, pilih as a blank report

3. buat database pada database fiield, setelah itu drag field-field yang ada pada database ataupun yang telah dibuat dengan menggunakan formula sesuai dengan kebutuhan report yang dibuat...misalnya yang dibutuhkan pada form kali ini adalah field kode barang, nama barang, persediaan awal, dan harga jual. setelah itu susun membentuk sebuh tabel

4. untuk melihat hasilnya pada bagian bawah klik main report preveiw

Latihan 44

Deskripsi

1. objek datagridview
objek ini digunakan untuk menampilkan data yang ingin digunkan pada objek grafik

2. objek grafik
menpilkan jumlah data yang ada dalam datagridview menjadi sebuah grafik

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 5. masukkan script berikut

Public Class Latihan_44_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Data grafik.ACCDB")
    Dim gitik As New DataTable
    Private Sub Latihan_44_46110008_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 qpembelianperbulanan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv46110008.DataSource = gitik

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

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

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

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

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

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

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

        Next
    End Sub

    Private Sub batang46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batang46110008.Click
        chart46110008.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub line46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles line46110008.Click
        chart46110008.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub lingkar46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lingkar46110008.Click
        chart46110008.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub batang2_46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batang2_46110008.Click
        chart46110008.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub line2_46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles line2_46110008.Click
        chart46110008.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

Latihan 43

Deskripsi

1. objek datagridview
objek ini digunakan untuk menampilkan data yang ingin digunkan pada objek grafik

2. objek grafik
menpilkan jumlah data yang ada dalam datagridview menjadi sebuah grafik

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_43_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Data grafik.ACCDB")
    Dim gitik As New DataTable
    Private Sub Latihan_43_46110008_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()
        dgv46110008.DataSource = gitik

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

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

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

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

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

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

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

        Next
    End Sub
End Class

Latihan 42

Deskripsi

1. objek datagridview
objek ini digunakan untuk menampilkan data yang ingin digunkan pada objek grafik

2. objek grafik
menpilkan jumlah data yang ada dalam datagridview menjadi sebuah grafik

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_42_46110008

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

    Private Sub Latihan_42_46110008_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 qrekapperrekening", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv46110008.DataSource = gitik


        chart46110008.RowCount = gitik.Rows.Count
        chart46110008.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

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

            chart46110008.Row = sekarang
            chart46110008.RowLabel = kake("KodeRekening")

            chart46110008.Column = 1
            chart46110008.Data = kake("Total Debet") / 1000

            chart46110008.Column = 2
            chart46110008.Data = kake("Total Kredit") / 1000

        Next
    End Sub
End Class

Latihan 41

Deskripsi

1. objek datagridview
objek ini digunakan untuk menampilkan data yang ingin digunkan pada objek grafik

2. objek grafik
menpilkan jumlah data yang ada dalam datagridview menjadi sebuah grafik

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut ini

Public Class Latihan_41_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan_41_46110008_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 keuangan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv46110008.DataSource = gitik

        chart46110008.RowCount = gitik.Rows.Count
        chart46110008.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

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

            chart46110008.Row = sekarang
            chart46110008.RowLabel = kake("Tahun")

            chart46110008.Column = 1
            chart46110008.Data = kake("Pendapatan") / 1000

            chart46110008.Column = 2
            chart46110008.Data = kake("Biaya") / 1000

        Next
    End Sub
End Class

Latihan 40b

Deskripsi

Deskripsi

1. Objek textbox
terdapat 3 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di edit. 1 diantaranya berstatus ReadOnly

2. objek button
terdapat 1 objek button form ini. berfungsi mengeksekusi input pada textbox dan menyimpan data ke access

3. objek datagridview
menampilkan hasil inputan pada textbox

4. objek datetimepicker
terdapat satu objek ini pada form kali ini

5. objek Status Strip
menampilkan nomor transaksi yang dipilih

even :  ButtonClick


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_40b_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim gitik As New DataTable
    Dim baru(1) As DataColumn
    Public Sub botto()
        Dim ttotal As Integer
        For Each hasil As DataRow In gitik.Rows
            ttotal += hasil("Jumlah")
        Next
        tot46110008.Text = ttotal
    End Sub
    Public Sub makecolumn()
        'mendeklarasikan kendaraan
        Dim bojel As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        bojel = 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='" & notr46110008.Text & "'", Jalan)

        'bersihkan data
        gitik.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        bojel.Fill(gitik)
        bojel.Dispose()

        'untuk menampilkan isi datatable ke data grid view
        gitik.Columns("Kodebarang").DefaultValue = ""
        gitik.Columns("NamaBarang").DefaultValue = ""
        gitik.Columns("unit").DefaultValue = 0
        gitik.Columns("harga").DefaultValue = 0
        gitik.Columns("jumlah").DefaultValue = 0

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


        baru(0) = gitik.Columns("kodebarang")
        gitik.PrimaryKey = baru
        dgv46110008.DataSource = gitik

    End Sub

    Private Sub simpan46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110008.Click
        'Memeriksa isi textbox
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If gitik.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        'Memeriksa nomor transaksi pd master transaksi
        If ganti46110008.Text <> notr46110008.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.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(ganti46110008.Text)
        Dim kacci As New OleDb.OleDbCommand
        kacci = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans='" & ganti46110008.Text & "'", Jalan)
        Jalan.Open()
        kacci.ExecuteNonQuery()
        Jalan.Close()

        kacci = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans='" & ganti46110008.Text & "'", Jalan)
        Jalan.Open()
        kacci.ExecuteNonQuery()
        Jalan.Close()

        kacci = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        kacci.ExecuteNonQuery()
        Jalan.Close()

        'penyimpanan isi datatable ke detail transaksi
        For Each nhana As DataRow In gitik.Rows
            kacci = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", Jalan)
            Jalan.Open()
            kacci.ExecuteNonQuery()
            Jalan.Close()

        Next
        kacci.Dispose()

        'Mengosongkan isi text box
        notr46110008.Text = ""
        jt46110008.Text = ""

        'Mengosongkan baris datatable
        gitik.Rows.Clear()

        'mengambildata
        Latihan_40a_46110008.grabdata()

        'menutup form
        Me.Close()
    End Sub

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

    Private Sub dgv46110008_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110008.CellEndEdit
        'mengosongkan data
        If e.ColumnIndex = 0 Then
            dgv46110008.CurrentRow.Cells("NamaBarang").Value = ""
            dgv46110008.CurrentRow.Cells("Unit").Value = 0
            dgv46110008.CurrentRow.Cells("harga").Value = 0
            dgv46110008.CurrentRow.Cells("Jumlah").Value = 0

            'mencari data yang ada di tabel
            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
            Pencari.AturPencarianDataBase("barang", "kodebarang", dgv46110008.CurrentRow.Cells("kodebarang").Value, 1, Jalan)
            If Pencari.JumlanBaris > 0 Then
                dgv46110008.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)
                dgv46110008.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)
            Else
                MsgBox("the data is not found")
                If Latihan_38_39_40_4611008.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv46110008.CurrentRow.Cells("kodebarang").Value = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("KodeBarang").Value
                    dgv46110008.CurrentRow.Cells("Namabarang").Value = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("namabarang").Value
                End If
            End If

            'mengitung jumlah dan total
        ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv46110008.CurrentRow.Cells("jumlah").Value = dgv46110008.CurrentRow.Cells("unit").Value * dgv46110008.CurrentRow.Cells("harga").Value
            botto()
        End If
    End Sub

End Class

Latihan 40a

Deskripsi

1. objek datagridview
ada dua objek ini pada form kali ini

2. objek button
ada 3 objek button pada form kali ini. fungsinya adalah untuk menghapus, mengedit dan menambah data yang ingin ditampilkan pada datagridview

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_40a_46110008
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim dtdetail As New DataTable
    Dim dtmaster As New DataTable
    Dim atur2 As New DataSet
    Dim bsdetail As New BindingSource
    Dim bsmaster As New BindingSource
    Public Sub grabdata()
        'proses pengosongan dan pengisian data tabel
        dtdetail.Rows.Clear()
        dtmaster.Rows.Clear()

        Dim master As New OleDb.OleDbDataAdapter
        master = New OleDb.OleDbDataAdapter("select* from mastertransaksi", go)
        master.Fill(dtmaster)
        master.Dispose()

        Dim detail As New OleDb.OleDbDataAdapter
        detail = New OleDb.OleDbDataAdapter("select* from detailtransaksi", go)
        detail.Fill(dtdetail)
        detail.Dispose()

    End Sub
    Private Sub Latihan_40a_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        grabdata()
        'memasukkan datatabel ke dalam dataset
        dtmaster.TableName = "idung"
        dtdetail.TableName = "kake"

        dgv1_46110008.DataSource = bsmaster
        dgv2_46110008.DataSource = bsdetail

        atur2.Tables.Add(dtmaster)
        atur2.Tables.Add(dtdetail)

        atur2.Relations.Add(New DataRelation("relasi", atur2.Tables("idung").Columns("notrans"), atur2.Tables("kake").Columns("notrans")))

        'menampilkan datatabel ke dGV dg menggunakan binding
        bsmaster.DataSource = atur2
        bsmaster.DataMember = "idung"
        bsdetail.DataSource = bsmaster
        bsdetail.DataMember = "relasi"
    End Sub

    Private Sub edit46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110008.Click
        Latihan_40b_46110008.Show()
        Latihan_40b_46110008.ganti46110008.Text = dgv1_46110008.CurrentRow.Cells("notrans").Value
        Latihan_40b_46110008.notr46110008.Text = dgv1_46110008.CurrentRow.Cells("notrans").Value
        Latihan_40b_46110008.tgl46110008.Text = dgv1_46110008.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40b_46110008.jt46110008.Text = dgv1_46110008.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40b_46110008.makecolumn()
        Latihan_40b_46110008.botto()
    End Sub

    Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        Latihan_40b_46110008.Show()
        Latihan_40b_46110008.notr46110008.Text = ""
        Latihan_40b_46110008.jt46110008.Text = ""
        Latihan_40b_46110008.ganti46110008.Text = "-"
        Latihan_40b_46110008.makecolumn()
    End Sub

    Private Sub hapus46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110008.Click
        If MsgBox("seriously want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim bojel As New OleDb.OleDbCommand
        bojel = New OleDb.OleDbCommand("delete* from mastertransaksi where notrans='" & dgv1_46110008.CurrentRow.Cells("notrans").Value & "'", go)
        go.Open()
        bojel.ExecuteNonQuery()
        go.Close()

        bojel = New OleDb.OleDbCommand("delete* from detailtransaksi where notrans='" & dgv1_46110008.CurrentRow.Cells("notrans").Value & "'", go)
        go.Open()
        bojel.ExecuteNonQuery()
        go.Close()

        grabdata()

    End Sub
End Class

Latihan 37, 38, 39

Deskripsi

1. objek datagridview
menampilkan data yang ada pada access


even : FormLoad


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_38_39_40_4611008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable
    Private Sub Latihan_38_39_40_4611008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        xxx()
        dgv46110008.DataSource = tabel
    End Sub
    Public Sub xxx()
        Dim Mobil As New OleDb.OleDbDataAdapter

        Mobil = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", Jalan)
        tabel.Rows.Clear()

        Mobil.Fill(tabel)
        Mobil.Dispose()

    End Sub
End Class

Latihan 39

Deskripsi

1. Objek textbox
terdapat 3 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di edit. 1 diantaranya berstatus ReadOnly

2. objek button
terdapat 1 objek button form ini. berfungsi mengeksekusi input pada textbox dan menyimpan data ke access

3. objek datagridview
menampilkan hasil inputan pada textbox

4. objek datetimepicker
terdapat satu objek ini pada form kali ini

even :  ButtonClick


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_39_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable
    Private Sub xxx()
        Dim ttotal As Integer
        For Each hasil As DataRow In tabel.Rows
            ttotal += hasil("Jumlah")
        Next
        tot46110008.Text = ttotal
    End Sub

    Private Sub Latihan_39_46110008_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 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='" & notr46110008.Text & "'", Jalan)

        tabel.Rows.Clear()

        adapter.Fill(tabel)
        adapter.Dispose()

        tabel.Columns("Kodebarang").DefaultValue = ""
        tabel.Columns("NamaBarang").DefaultValue = ""
        tabel.Columns("unit").DefaultValue = 0
        tabel.Columns("harga").DefaultValue = 0
        tabel.Columns("jumlah").DefaultValue = 0

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


        dgv46110008.DataSource = tabel

        Dim aaa(2) As DataColumn
        aaa(0) = tabel.Columns("Kodebarang")
        tabel.PrimaryKey = aaa
    End Sub

    Private Sub dgv46110008_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110008.CellEndEdit
        'mengosongkan data
        If e.ColumnIndex = 0 Then
            dgv46110008.CurrentRow.Cells("NamaBarang").Value = ""
            dgv46110008.CurrentRow.Cells("Unit").Value = 0
            dgv46110008.CurrentRow.Cells("harga").Value = 0
            dgv46110008.CurrentRow.Cells("Jumlah").Value = 0

            'mencari data yang ada di tabel
            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
            Pencari.AturPencarianDataBase("barang", "kodebarang", dgv46110008.CurrentRow.Cells("kodebarang").Value, 1, Jalan)
            If Pencari.JumlanBaris > 0 Then
                dgv46110008.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)
                dgv46110008.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)
            Else
                MsgBox("the data is not found")
                If Latihan_38_39_40_4611008.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv46110008.CurrentRow.Cells("kodebarang").Value = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("KodeBarang").Value
                    dgv46110008.CurrentRow.Cells("Namabarang").Value = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("namabarang").Value
                End If
            End If

            'mengitung jumlah dan total
        ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv46110008.CurrentRow.Cells("jumlah").Value = dgv46110008.CurrentRow.Cells("unit").Value * dgv46110008.CurrentRow.Cells("harga").Value
            xxx()
        End If
    End Sub


    Private Sub save46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110008.Click
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If tabel.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim zzz As New OleDb.OleDbCommand
        zzz = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        zzz.ExecuteNonQuery()
        Jalan.Close()

        For Each yyy As DataRow In tabel.Rows
            zzz = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & yyy("kodebarang") & "'," & yyy("unit") & "," & yyy("harga") & ")", Jalan)
            Jalan.Open()
            zzz.ExecuteNonQuery()
            Jalan.Close()

        Next
        zzz.Dispose()

        notr46110008.Text = ""
        jt46110008.Text = ""

        tabel.Rows.Clear()

        Me.Close()

    End Sub
End Class

Latihan 38

Deskripsi

1. Objek textbox
terdapat 8 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di edit. 3 diantaranya berstatus ReadOnly

2. objek button
terdapat 2 objek button form ini. berfungsi mengeksekusi input pada textbox dan menyimpan data ke access

3. objek datagridview
menampilkan hasil inputan pada textbox

4. objek datetimepicker
terdapat satu objek ini pada form kali ini

even :  ButtonClick


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_38_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable
    Private Sub xxx()
        Dim ttotal As Integer
        For Each hasil As DataRow In tabel.Rows
            ttotal += hasil("Jumlah")
        Next
        tot46110008.Text = ttotal
    End Sub

    Private Sub Latihan_38_46110008_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 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='" & notr46110008.Text & "'", Jalan)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()
        dgv46110008.DataSource = tabel

        Dim ranger(2) As DataColumn
        ranger(0) = tabel.Columns("Kodebarang")
        tabel.PrimaryKey = ranger

    End Sub

    Private Sub kob46110008_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kob46110008.Leave
        If kob46110008.Text.Length = 0 Then
            Exit Sub
        End If

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", kob46110008.Text, 1, Jalan)
        If Pencari.JumlanBaris > 0 Then
            nama46110008.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If Latihan_38_39_40_4611008.ShowDialog = Windows.Forms.DialogResult.OK Then
                kob46110008.Text = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("KodeBarang").Value
                nama46110008.Text = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("namabarang").Value
                harg46110008.Text = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("hargajual").Value
            Else
                kob46110008.Text = ""
                nama46110008.Text = ""
            End If
        End If
    End Sub

    Private Sub harg46110008_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harg46110008.TextChanged
        jumlah46110008.Text = Val(unit46110008.Text) * Val(harg46110008.Text)
    End Sub

    Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        If kob46110008.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If unit46110008.Text.Length = 0 Then
            MsgBox("Please, insert the unit of goods")
            Exit Sub
        End If

        If harg46110008.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If

        Dim baris As DataRow
        baris = tabel.Rows.Find(kob46110008.Text)
        If Not baris Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        tabel.Rows.Add(kob46110008.Text, nama46110008.Text, (unit46110008.Text), Val(harg46110008.Text), jumlah46110008.Text)
        xxx()

        kob46110008.Text = ""
        unit46110008.Text = ""
        harg46110008.Text = ""
        nama46110008.Text = ""
        jumlah46110008.Text = ""
    End Sub

    Private Sub save46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110008.Click
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If tabel.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim power As New OleDb.OleDbCommand
        power = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        power.ExecuteNonQuery()
        Jalan.Close()

        For Each master As DataRow In tabel.Rows
            power = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & master("kodebarang") & "'," & master("unit") & "," & master("harga") & ")", Jalan)
            Jalan.Open()
            power.ExecuteNonQuery()
            Jalan.Close()

        Next
        power.Dispose()

        notr46110008.Text = ""
        jt46110008.Text = ""

        tabel.Rows.Clear()

        Me.Close()
    End Sub
End Class