Latihan_39_46110055

Deskripsi Form Latihan 39

Pada Form Latihan 39 Terdapat 5 object yaitu Label, DataGridView, DateTimePicker, Textbox dan Button.

Object Label
Terdapat 4 Label yaitu  No.Transaksi, Tanggal, Jenis Transaksi dan Total

Object DataGridView
Terdapat 1 DataGridView yang akan menampilkan data table.

Object DateTimePicker
Terdapat 1 DateTimePicker yaitu Tanggal.

Object Textbox
Terdapat 2 textbox yang berstatus Input yaitu  No.Transaksi; Jenis Transaksi; sedangkan Textbox yang berstatus ReadOnly Total

Object Button
Terdapat  button Save.

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

Langkah-langkah membuat Latihan 39:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 39”

6. Setelah itu beri teks pada label dan buatlah DataGridview, DateTimePicker, Textbox dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

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

    Private Sub Latihan_39_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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='" & NT46110055.Text & "'", FEBI)

        'bersihkan data
        FEB.Rows.Clear()

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

        'untuk menampilkan isi datatable ke data grid view
        FEB.Columns("Kodebarang").DefaultValue = ""
        FEB.Columns("NamaBarang").DefaultValue = ""
        FEB.Columns("unit").DefaultValue = 0
        FEB.Columns("harga").DefaultValue = 0
        FEB.Columns("jumlah").DefaultValue = 0

        FEB.Columns("NamaBarang").ReadOnly = True


        DGV46110055.DataSource = FEB

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

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

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

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

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

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

        If FEB.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", NT46110055.Text, 1, FEBI)
        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 ('" & NT46110055.Text & "',#" & DTP46110055.Value.Month & "/" & DTP46110055.Value.Day & "/" & DTP46110055.Value.Year & "#,'" & JT46110055.Text & "')", FEBI)
        FEBI.Open()
        SABAR.ExecuteNonQuery()
        FEBI.Close()

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

        Next
        SABAR.Dispose()

        'Mengosongkan isi text box
        NT46110055.Text = ""
        JT46110055.Text = ""

        'Mengosongkan baris datatable
        FEB.Rows.Clear()

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

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini: