Latihan_37_46110045

Pada form latihan 37 ada 5 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker dan Data Grid View.

Object Label

Pada form ini label yang digunakan ada 6 (no. transaksi, tanggal, jenis transaksi, kode barang, nama barang, unit, harga, jumlah dan total).

Object TextBox

Pada form ini ada 8 textbox yang digunakan (6 status input dan 3 status readonly). Status input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no. transaksi, tanggal, jenis transaksi, kode barang, unit dan harga”.

Object DateTimePicker

Pada latihan 37 terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Object Button                                                          

Terdapat 2 object button (insert dan save). Tombol “insert” digunakan untuk menambah data dan tombol “save” untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel “Data Majemuk”.

 Script Unique

Lebih lengkap dapat dilihat pada script yang ada pada langkah-langkah membuat form pada poin ke 5 dibawah ini

Even

Load

ButtonClick

Langkah-Langkah membuat Form Latihan_37

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_37  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut:

Public Class Latihan_37_46110045
    Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim dyna As New DataTable
    Private Sub BATU()
        Dim TTOTAL As Integer
        For Each hasil As DataRow In dyna.Rows
            TTOTAL += hasil("Jumlah")
        Next
        Total_46110045.Text = TTOTAL
    End Sub

    Private Sub Latihan_37_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'mendeklarasikan kendaraan
        Dim robot As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        robot = 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='" & NT_46110045.Text & "'", dina)

        'bersihkan data
        dyna.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        robot.Fill(dyna)

        'untuk menampilkan isi datatable ke data grid view
        robot.Dispose()
        DGV_46110045.DataSource = dyna

        'perintah primarykey
        Dim diana(2) As DataColumn
        diana(0) = dyna.Columns("Kodebarang")
        dyna.PrimaryKey = diana
    End Sub

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

        'mencari data yang ada di tabel
        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110045.Text, 1, dina)
        If Pencari.JumlanBaris > 0 Then
            NB_46110045.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist")
            KB_46110045.Text = ""
            NB_46110045.Text = ""
            Exit Sub
        End If

    End Sub

    Private Sub INSERT_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_46110045.Click
        'Memeriksa isi textbox
        If KB_46110045.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

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

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

        'perintah pencarian data
        Dim kabot As DataRow
        kabot = dyna.Rows.Find(KB_46110045.Text)
        If Not kabot Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        'penyimpanan data ke datatable
        dyna.Rows.Add(KB_46110045.Text, NB_46110045.Text, Val(Unit_46110045.Text), Val(Harga_46110045.Text), Jumlah_46110045.Text)

        BATU()

        'mengosongkan textbox
        KB_46110045.Text = ""
        NB_46110045.Text = ""
        Unit_46110045.Text = ""
        Harga_46110045.Text = ""
        Jumlah_46110045.Text = ""
    End Sub

    Private Sub Unit_46110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110045.TextChanged
        Jumlah_46110045.Text = Val(Unit_46110045.Text) * Val(Harga_46110045.Text)
    End Sub

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

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

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

        'Memeriksa nomor transaksi pd master transaksi
        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110045.Text, 1, dina)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        'Proses Penyimpanan ke tabel master transaksi
        Dim SABAR As New OleDb.OleDbCommand
        SABAR = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110045.Text & "',#" & DTP_46110045.Value.Month & "/" & DTP_46110045.Value.Day & "/" & DTP_46110045.Value.Year & "#,'" & JT_46110045.Text & "')", dina)
        dina.Open()
        SABAR.ExecuteNonQuery()
        dina.Close()

        'penyimpanan isi datatable ke detail transaksi
        For Each fadli As DataRow In dyna.Rows
            SABAR = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110045.Text & "','" & fadli("kodebarang") & "'," & fadli("unit") & "," & fadli("harga") & ")", dina)
            dina.Open()
            SABAR.ExecuteNonQuery()
            dina.Close()

        Next
        SABAR.Dispose()

        'Mengosongkan isi text box
        NT_46110045.Text = ""
        JT_46110045.Text = ""

        'Mengosongkan baris datatable
        dyna.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
End Class

Latihan_36_46110045

Pada form latihan 36 ada 5 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker dan Data Grid View.

Object Label

Pada form ini label yang digunakan ada 6 (no. transaksi, tanggal, jenis transaksi, kode barang, unit dan harga).

Object TextBox

Pada form ini ada 5 textbox yang digunakan (status input). Status input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no. transaksi, jenis transaksi, kode barang, unit dan harga”.

Object DateTimePicker

Pada latihan 36 terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Object Button                                                          

Terdapat 2 object button (tambah dan simpan). Tombol “tambah” digunakan untuk menambah data dan tombol “simpan” untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel “Data Majemuk”.

Script Unique

Lebih lengkap dapat dilihat pada script yang ada pada langkah-langkah membuat form pada poin ke 5 dibawah ini

Even

Load

ButtonClick

Langkah-Langkah membuat Form Latihan_36

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_36  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code

5. Masukkan rumus

Public Class Latihan_36_46110045
    Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim dyna As New DataTable

    Private Sub Latihan_36_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'mendeklarasikan kendaraan
        Dim robot As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        robot = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & NT_46110045.Text & "'", dina)

        'bersihkan data
        dyna.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        robot.Fill(dyna)

        'untuk menampilkan isi datatable ke data grid view
        robot.Dispose()
        DGV_46110045.DataSource = dyna

        'perintah primarykey
        Dim kabotcibay(2) As DataColumn
        kabotcibay(0) = dyna.Columns("Kodebarang")
        dyna.PrimaryKey = kabotcibay


    End Sub

    Private Sub INSERT_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_46110045.Click
        'Memeriksa isi textbox
        If KB_46110045.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

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

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

        'perintah pencarian data
        Dim SAYANG As DataRow
        SAYANG = dyna.Rows.Find(KB_46110045.Text)
        If Not SAYANG Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        'penyimpanan data ke datatable
        dyna.Rows.Add(KB_46110045.Text, Val(UNIT_46110045.Text), Val(HARGA_46110045.Text))

        'mengosongkan textbox
        KB_46110045.Text = ""
        UNIT_46110045.Text = ""
        HARGA_46110045.Text = ""
    End Sub

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

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

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

        'Memeriksa nomor transaksi pd master transaksi
        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110045.Text, 1, dina)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        'Proses Penyimpanan ke tabel master transaksi
        Dim kabot As New OleDb.OleDbCommand
        kabot = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110045.Text & "',#" & DTP_46110045.Value.Month & "/" & DTP_46110045.Value.Day & "/" & DTP_46110045.Value.Year & "#,'" & JT_46110045.Text & "')", dina)
        dina.Open()
        kabot.ExecuteNonQuery()
        dina.Close()

        'penyimpanan isi datatable ke detail transaksi
        For Each AKU As DataRow In dyna.Rows
            kabot = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110045.Text & "','" & AKU("kodebarang") & "'," & AKU("unit") & "," & AKU("harga") & ")", dina)
            dina.Open()
            kabot.ExecuteNonQuery()
            dina.Close()

        Next
        kabot.Dispose()

        'Mengosongkan isi text box
        NT_46110045.Text = ""
        JT_46110045.Text = ""

        'Mengosongkan baris datatable
        dyna.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
End Class

Latihan_60_46110045

Pada form latihan 60 ada 3 object yang digunakan yaitu Label, TextBox dan Button.

 

Object Label

Pada form ini yang digunakan ada 2 label “No. Transaksi dan Nama Kasir.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110045” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110045”.

Object Textbox

Terdapat 2 textbox berstatus input, yang digunakan dalam menginput data berupa no. transaksi dan nama kasir.

 
Even
ButtonClick

Langkah-Langkah membuat Form Latihan_60

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_60  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

  

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_60_46110045
    Private Sub View_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110045.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_46110045, Application.StartupPath, "data report.accdb")
        Latihan_53_46110045.CrystalReportViewer1.ReportSource = Laporan
        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110045.Text)
        'Mengatur(Filter)
        Latihan_53_46110045.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110045.Text & "'"
        'Menampilkan for
        If Latihan_53_46110045.Visible = False Then
            Latihan_53_46110045.Show()
        Else
            Latihan_53_46110045.Activate()
        End If
    End Sub
End Class

6.    Klik start debugging

Latihan_59_46110045

Pada form latihan 59 ada 2 object yang digunakan yaitu Text Object dan Line Object.

 

Line Object

Digunakan untuk membuat kolom dan baris pada report.

Text Object

Digunakan untuk menulis teks (PT.X, DAFTAR BARANG dan Jumlah).

Langkah-Langkah membuat Form Latihan_59

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Pilih "Report" lalu Ketik nama form "Latihan_59_46110045" pada name

 3. Pilih as a blank report

  

Masukkan jenis database yang diinginkan, 
Klik kanan pada “Database Fields” yang ada dalam Fields Explorer -> pilih “Database Expert”, setelah itu pilih “Table” kemudian Klik “Barang” seperti di bawah Ini :

4.Setelah Database Fields yang ada dalam Fields Explorer berisi data base yang telah dipilih sebelumnya, buat “main report “ seperti berikut:
#untuk "Jumlah" klik kanan pada Harga Jual (insert -> Summary -> Ok) 

5. Untuk melihat hasil main report, klik “main report preview”

Latihan_58_46110045

Pada form latihan 58 ada 3 object yang digunakan yaitu Label, DateTimePicker dan Button..

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Tanggal, Insert the date will be preview, Dari Tanggal dan Sampai Tanggal.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110045” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110045”.

Object DateTimePicker

Pada latihan 58 terdapat 2 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan_58

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_58  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_58_46110045
    Private Sub View_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110045.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_46110045, Application.StartupPath, "data report.accdb")

        Latihan_53_46110045.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110045.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_46110045.Value.Month & "/" & DTP1_46110045.Value.Day & "/" & DTP1_46110027.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_46110045.Value.Month & "/" & DTP2_46110045.Value.Day & "/" & DTP2_46110045.Value.Year & "#"


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

6.    Klik start debugging

Latihan_57_46110045

Pada form latihan 57 ada 3 object yang digunakan yaitu Label, Textbox dan Button.

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Kode Barang dan Insert the Code will be preview”.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110045” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110045”.

Object Textbox
Terdapat 1 textbox berstatus input, yang digunakan dalam menginput data berupa kode. 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan_57

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_57  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_57_46110027
    Private Sub View_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110045.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_46110045, Application.StartupPath, "data report.accdb")
        Latihan_53_46110045.CrystalReportViewer1.ReportSource = Laporan
        'Mengatur(Filter)
        Latihan_53_46110045.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110045.Text
        'Menampilkan form 53
        If Latihan_53_46110045.Visible = False Then
            Latihan_53_46110045.Show()
        Else
            Latihan_53_46110045.Activate()
        End If
    End Sub
End Class

6.    Klik start debugging

Latihan_56_46110045

Pada form latihan 56 ada 3 object yang digunakan yaitu Label, Textbox dan Button.

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Kode Barang dan Insert the Code will be preview”.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110045” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110045”.

Object Textbox
Terdapat 1 textbox berstatus input, yang digunakan dalam menginput data berupa kode. 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan_56

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_56  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_56_46110045
    Private Sub View_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110045.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_46110045, Application.StartupPath, "data report.accdb")

        Latihan_53_46110045.CrystalReportViewer1.ReportSource = Laporan

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

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

6.    Klik start debugging