Latihan_38_46110007

A. Langkah-Langkah Penyelesaian Form Latihan_38
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_38_46110007" pada name kemudian click add

·  Buat form seperti berikut 

·         Setelah itu beri teks pada button dan label.


·         Kemudian beri nama pada semua objek kecuali label.


·  Setelah form selesai masukkan rumus seperti dibawah ini
Public Class Latihan_38_46110007
    Dim FANTY As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim TABEL As New DataTable
    Private Sub BATU()
        Dim TTOTAL As Integer
        For Each hasil As DataRow In TABEL.Rows
            TTOTAL += hasil("Jumlah")
        Next
        Total_46110007.Text = TTOTAL
    End Sub

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

        'Mengatur data yang akan di angkut
        TK = 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_46110007.Text & "'", FANTY)

        'bersihkan data
        TABEL.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        TK.Fill(TABEL)

        'untuk menampilkan isi datatable ke data grid view
        TK.Dispose()
        DGV_46110007.DataSource = TABEL

        'perintah primarykey
        Dim DADU(2) As DataColumn
        DADU(0) = TABEL.Columns("Kodebarang")
        TABEL.PrimaryKey = DADU
    End Sub
    Private Sub KB_46110007Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110007.Leave
        If KB_46110007.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_46110007.Text, 1, FANTY)
        If Pencari.JumlanBaris > 0 Then
            NB_46110007.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If Latihan_383940_46110007.ShowDialog = Windows.Forms.DialogResult.OK Then
                KB_46110007.Text = Latihan_383940_46110007.DGV_46110007.CurrentRow.Cells("KodeBarang").Value
                NB_46110007.Text = Latihan_383940_46110007.DGV_46110007.CurrentRow.Cells("namabarang").Value
                Harga_46110007.Text = Latihan_383940_46110007.DGV_46110007.CurrentRow.Cells("hargajual").Value
            Else
                KB_46110007.Text = ""
                NB_46110007.Text = ""
            End If
        End If

    End Sub

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

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

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

        'perintah pencarian data
        Dim CINTA As DataRow
        CINTA = TABEL.Rows.Find(KB_46110007.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
        TABEL.Rows.Add(KB_46110007.Text, NB_46110007.Text, Val(Unit_46110007.Text), Val(Harga_46110007.Text), Jumlah_46110007.Text)

        BATU()

        'mengosongkan textbox
        KB_46110007.Text = ""
        NB_46110007.Text = ""
        Unit_46110007.Text = ""
        Harga_46110007.Text = ""
        Jumlah_46110007.Text = ""
    End Sub

    Private Sub Unit_46110007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110007.TextChanged
        Jumlah_46110007.Text = Val(Unit_46110007.Text) * Val(Harga_46110007.Text)
    End Sub

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

        If JT_46110007.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

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

        'Proses Penyimpanan ke tabel master transaksi
        Dim KK As New OleDb.OleDbCommand
        KK = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110007.Text & "',#" & DTP_46110007.Value.Month & "/" & DTP_46110007.Value.Day & "/" & DTP_46110007.Value.Year & "#,'" & JT_46110007.Text & "')", FANTY)
        FANTY.Open()
        KK.ExecuteNonQuery()
        FANTY.Close()

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

        Next
        KK.Dispose()

        'Mengosongkan isi text box
        NT_46110007.Text = ""
        JT_46110007.Text = ""

        'Mengosongkan baris datatable
        TABEL.Rows.Clear()

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

·  Untuk menjalankan form tekan F5 


B. Deskripsi Form Latihan 38
Pada form latihan 38 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 38 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”.

Even
Load
ButtonClick

Script Unique
Lebih lengkap dan jelasnya silahkan dilihat pada script di atas.

Langkah-Langkah Menjalankan Form Latihan 38
1.      Input data pada textbox yang tersedia sesuai perintah yang ada pada label.
2.      Jika ingin menambahkan data klik “Tambah”
3.      Jika ingin menyimpan data yang telah diinput/ditambah ke data tabel (Data Majemuk) klik tombol “Simpan”
4.      Selamat mencoba (:
Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)