latihan_38_46110023

Deskripsi Form Latihan_38_46110023

Form Latihan_38_46110023  terdapat Lima object yaitu Label, Textbox, Button, data time picker, dan Data Grid View.

Object Label
Terdapat Sembilan object label yang bertuliskan “no. transaksi”, “tanggal”, “jenis transaksi”, “kode barang”, “unit”, “harga”, "nama barang", "jumlah", dan "total". 

Object TextBox

Terdapat Lima object textbox yang berstatus input dan tiga berstatus ReadOnly.

Object Button

Terdapat Dua object button yaitu Button "insert" yang digunakan untuk menginput data textbox ke tabel yang ada pada data grid view. Sedangkan button "save" digunakan untuk menyimpan data yang diinput ke database.

Object Date Time Picker
Dalam latihan ini terdapat sebuah date time picker yeng terdapat pada "Tanggal" 

Object DataGridView

Terdapat sebuah object data grid view yang berguna untuk menampilkan detail data yang telah diinput

Langkah- langkah Membuat Latihan 38 

1. Buka project yang telah dibuat 

2. Pilih menu project yang ada pada menubar, lalu pilih add windows form

3. Buatlah desaign form sepertigambar berikut  

                                                                             

4. Ganti nama pada semua objek kecuali objek label

s    5. setelah itu, klik kanan pada form lalu pilih view code untuk dibuatkan script:

      6. maka akan muncul tampilan seperti ini:

       8.    kemudian input script seperti ini:

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

    Private Sub Latihan_38_46110023_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_46110023.Text & "'", DIAN)

        'bersihkan data
        AYU.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        RINDU.Fill(AYU)

        'untuk menampilkan isi datatable ke data grid view
        RINDU.Dispose()
        DGV_46110023.DataSource = AYU

        'perintah primarykey
        Dim WAHYUNI(2) As DataColumn
        WAHYUNI(0) = AYU.Columns("Kodebarang")
        AYU.PrimaryKey = WAHYUNI
    End Sub
    Private Sub KB_46110023Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110023.Leave
        If KB_46110023.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_46110023.Text, 1, DIAN)
        If Pencari.JumlanBaris > 0 Then
            NB_46110023.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If LATIHAN_383940_46110023.ShowDialog = Windows.Forms.DialogResult.OK Then
                KB_46110023.Text = LATIHAN_383940_46110023.DGV_46110023.CurrentRow.Cells("KodeBarang").Value
                NB_46110023.Text = LATIHAN_383940_46110023.DGV_46110023.CurrentRow.Cells("namabarang").Value
                Harga_46110023.Text = LATIHAN_383940_46110023.DGV_46110023.CurrentRow.Cells("hargajual").Value
            Else
                KB_46110023.Text = ""
                NB_46110023.Text = ""
            End If
        End If

    End Sub

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

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

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

        'perintah pencarian data
        Dim CINTA As DataRow
        CINTA = AYU.Rows.Find(KB_46110023.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
        AYU.Rows.Add(KB_46110023.Text, NB_46110023.Text, Val(Unit_46110023.Text), Val(Harga_46110023.Text), Jumlah_46110023.Text)

        BATU()

        'mengosongkan textbox
        KB_46110023.Text = ""
        NB_46110023.Text = ""
        Unit_46110023.Text = ""
        Harga_46110023.Text = ""
        Jumlah_46110023.Text = ""
    End Sub

    Private Sub Unit_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110023.TextChanged
        Jumlah_46110023.Text = Val(Unit_46110023.Text) * Val(Harga_46110023.Text)
    End Sub

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

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

        If AYU.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_46110023.Text, 1, DIAN)
        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_46110023.Text & "',#" & DTP_46110023.Value.Month & "/" & DTP_46110023.Value.Day & "/" & DTP_46110023.Value.Year & "#,'" & JT_46110023.Text & "')", DIAN)
        DIAN.Open()
        SABAR.ExecuteNonQuery()
        DIAN.Close()

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

        Next
        SABAR.Dispose()

        'Mengosongkan isi text box
        NT_46110023.Text = ""
        JT_46110023.Text = ""

        'Mengosongkan baris datatable
        AYU.Rows.Clear()

        'menutup form
        Me.Close()
    End Sub
End Class

       LANGKAH-LANGKAH MENJALANKAN LATIHAN 38

     1.     Setelah scriptnya jadi, jalankan program dengan mengklik start debugging yang      ada pada menubar:

    2.    Input data yang ingin dimasukkan, secara otomatis program akan bekerja sesuai dengan apa yang diperintahkan.

    3.    Apabila ada kesalahan, maka program secara otomatis akan memperlihatkan letak kesalahannya.

    4.    Selamat mencoba.

    
         
Property :  

       Property TextBox ==> ReadOnly=True

              

      even 

        click

        load