Latihan_37_46110024

DESKRIPSI FORM LATIHAN 37

Form Latihan  ini Terdapat  Lima object yaitu Label, Text Box, Button, Date Time Picker dan Data Grid View.

Object Label

Dalam form latihan ini terdapat sembilan label yang Bertuliskan No. Transaksi, Tanggal, Jenis Transaksi, Kode Barang, Nama Barang, Unit, Harga, Jumlah Dan Total

Object Textbox

Terdapat lima textbox yang berstatus dan 3 status readonly. Status input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no. transaksi, jenis transaksi, kode barang, unit dan harga”. Status readonly digunakan untuk menampilkan nama barang sesuai dengan kode barang yang anda masukkan, jumlah merupakan hasil dari perkalian unit dan harga, total untuk menampilkan akumulasi dari jumlah harga yang telah ditambahkan.

Object  Button

Dalam form ini terdapat dua object button yang bertuliskan insert untuk menambah  data yang sudah diinput dan save untuk menyimpan data yang telah ditambahkan ke data majemuk.

Object Date Time Picker

Dalam form ini terdapat sebuah object datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Object Data Gridview

Terdapat  satu object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan.

Script  Unique

 Untuk script unik anda bisa lihat lebih jelasnya pada script latihan 37 dibawah

Even

Buttonclick

Load

Langkah- Langkah Membuat Form Latihan  37

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

2. Ganti nama sesuai dengan nama latihan 37

3. Lalu pilih object yang ada di latihan 37

 

4. Buat form sampai menghasilkan form seperti di bawah ini

 

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_37_46110024

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

    Dim wty As New DataTable

    Private Sub BATU()

        Dim TTOTAL As Integer

        For Each hasil As DataRow In wty.Rows

            TTOTAL += hasil("Jumlah")

        Next

        Total_46110024.Text = TTOTAL

    End Sub

    Private Sub Latihan_37_46110024_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'mendeklarasikan kendaraan

        Dim RINDU As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        RINDU = 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_46110024.Text & "'", wati)

        'bersihkan data

        wty.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        RINDU.Fill(wty)

        'untuk menampilkan isi datatable ke data grid view

        RINDU.Dispose()

        DGV_46110024.DataSource = wty

        'perintah primarykey

        Dim WAHYUNI(2) As DataColumn

        WAHYUNI(0) = wty.Columns("Kodebarang")

        wty.PrimaryKey = WAHYUNI

    End Sub

    Private Sub KB_46110024Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110024.Leave

        If KB_46110024.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_46110024.Text, 1, wati)

        If Pencari.JumlanBaris > 0 Then

            NB_46110024.Text = Pencari.DataTablenya.Rows(0).Item(1)

        Else

            MsgBox("the data is not exist")

            KB_46110024.Text = ""

            NB_46110024.Text = ""

            Exit Sub

        End If

    End Sub

    Private Sub INSERT_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_46110024.Click

        'Memeriksa isi textbox

        If KB_46110024.Text.Length = 0 Then

            MsgBox("Please, insert the code of goods")

            Exit Sub

        End If

        If Unit_46110024.Text.Length = 0 Then

            MsgBox("Please, insert the unit of goods")

            Exit Sub

        End If

        If Harga_46110024.Text.Length = 0 Then

            MsgBox("Please, insert the cost of goods")

            Exit Sub

        End If

        'perintah pencarian data

        Dim CINTA As DataRow

        CINTA = wty.Rows.Find(KB_46110024.Text)

        If Not CINTA Is Nothing Then

            MsgBox("Sorry, the data has been exist!!! Please insert new data")

            Exit Sub

        End If

        'penyimpanan data ke datatable

        wty.Rows.Add(KB_46110024.Text, NB_46110024.Text, Val(Unit_46110024.Text), Val(Harga_46110024.Text), Jumlah_46110024.Text)

        BATU()

        'mengosongkan textbox

        KB_46110024.Text = ""

        NB_46110024.Text = ""

        Unit_46110024.Text = ""

        Harga_46110024.Text = ""

        Jumlah_46110024.Text = ""

    End Sub

    Private Sub Harga_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Harga_46110024.TextChanged

        Jumlah_46110024.Text = Val(Unit_46110024.Text) * Val(Harga_46110024.Text)

    End Sub

   

    Private Sub Simpan_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110024.Click

        'Memeriksa isi textbox

        If NT_46110024.Text.Length = 0 Then

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

            Exit Sub

        End If

        If JT_46110024.Text.Length = 0 Then

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

            Exit Sub

        End If

        If wty.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_46110024.Text, 1, wati)

        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_46110024.Text & "',#" & DTP_46110024.Value.Month & "/" & DTP_46110024.Value.Day & "/" & DTP_46110024.Value.Year & "#,'" & JT_46110024.Text & "')", wati)

        wati.Open()

        SABAR.ExecuteNonQuery()

        wati.Close()

        'penyimpanan isi datatable ke detail transaksi

        For Each YUYU As DataRow In wty.Rows

            SABAR = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110024.Text & "','" & YUYU("kodebarang") & "'," & YUYU("unit") & "," & YUYU("harga") & ")", wati)

            wati.Open()

            SABAR.ExecuteNonQuery()

            wati.Close()

        Next

        SABAR.Dispose()

        'Mengosongkan isi text box

        NT_46110024.Text = ""

        JT_46110024.Text = ""

        'Mengosongkan baris datatable

        wty.Rows.Clear()

        'menutup form

        Me.Close()

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan  37

1. Klik start debugging 
2. Input data yang pada textbox yang berstatus input 
3. Klik tombol insert jika anda ingin menambahkan data yang anda telah input k dalam data grid view 
4. Klik tombol save jika anda ingin menyimpan data yang anda telah tambahkan ke dalam database dalam hal ini data majemuk