Latihan_40B_46110043

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

·  Ketik nama form "Latihan_40B_46110043" 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 iniPublic Class Latihan_40B_46110043
    Dim TRINITA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim TABEL As New DataTable
    Dim baru(1) As DataColumn

    Public Sub YUYU()
        Dim TTOTAL As Integer
        For Each hasil As DataRow In TABEL.Rows
            TTOTAL += hasil("Jumlah")
        Next
        Total_46110043.Text = TTOTAL
    End Sub
    Public Sub makecolumn()
        'mendeklarasikan kendaraan
        Dim BUBU As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        BUBU = 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_46110043.Text & "'", TRINITA)

        'bersihkan data
        TABEL.Rows.Clear()

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

        'untuk menampilkan isi datatable ke data grid view
        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


        baru(0) = TABEL.Columns("kodebarang")
        TABEL.PrimaryKey = baru
        DGV_46110043.DataSource = TABEL

    End Sub


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

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

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

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

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

        If JT_46110043.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
        If replace_46110043.Text <> NT_46110043.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110043.Text, 1, TRINITA)

            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(replace_46110043.Text)
        Dim FUFU As New OleDb.OleDbCommand
        FUFU = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans='" & replace_46110043.Text & "'", TRINITA)
        TRINITA.Open()
        FUFU.ExecuteNonQuery()
        TRINITA.Close()

        FUFU = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans='" & replace_46110043.Text & "'", TRINITA)
        TRINITA.Open()
        FUFU.ExecuteNonQuery()
        TRINITA.Close()

        FUFU = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110043.Text & "',#" & DTP_46110043.Value.Month & "/" & DTP_46110043.Value.Day & "/" & DTP_46110043.Value.Year & "#,'" & JT_46110043.Text & "')", TRINITA)
        TRINITA.Open()
        FUFU.ExecuteNonQuery()
        TRINITA.Close()

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

        Next
        FUFU.Dispose()

        'Mengosongkan isi text box
        NT_46110043.Text = ""
        JT_46110043.Text = ""

        'Mengosongkan baris datatable
        TABEL.Rows.Clear()

        'mengambildata
        Latihan_40A_46110043.grabdata()

        'menutup form
        Me.Close()
    End Sub
End Class
·  Untuk menjalankan form tekan F5


B. Deskripsi Form Latihan 40B
Pada form latihan 40B ada 6 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker, Status Strip dan Data Grid View.

Object Label
Pada form ini label yang digunakan ada 4 (no. transaksi, tanggal, jenis transaksi dan total).

Object TextBox
Pada form ini ada 3 textbox yang digunakan (2 status input dan 1 status readonly). Status input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no. transaksi dan jenis transaksi”.

Object DateTimePicker
Pada latihan 40B terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Object Button                                                               
Terdapat 1 object button (save). Tombol “save” digunakan untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.

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

Object StatusStrip
Ada 2 statusstrip yang digunakan (no transaksi dan -). “-“ nantinya akan menampilkan no transaksi.

Even
Load
ButtonClick

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

Langkah-Langkah Menjalankan Form Latihan 40B
1.      Setelah perintah di jalankan pada form “Latihan_40A_46110043”, maka form ini akan muncul.
2.      Input data pada tempat yang telah tersedia.
3.      Setelah itu klik “save” untuk menyimpan hasil edit/tambah data.