Latihan_39_46110006

Deskripsi Form Latihan_39_46110006

Form Latihan_39_46110006 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”, dan "total".

Object TextBox

Terdapat dua object textbox yang berstatus input dan satu yang 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

Even
click

load

 

    Cara Membuat From Latihan 39 :

      1. Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

  2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_39_46110006”

     3. Buatlah desain seperti berikut :

 

  4. Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk   menjalankan from diatas.

Public Class Latihan_39_46110006
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim gitik As New DataTable
    Private Sub botto()
        Dim ttotal As Integer
        For Each hasil As DataRow In gitik.Rows
            ttotal += hasil("Jumlah")
        Next
        total_46110006.Text = ttotal
    End Sub
    Private Sub Latihan_39_46110006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bojel As New OleDb.OleDbDataAdapter
        bojel = 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='" & no_46110006.Text & "'", Jalan)
        gitik.Rows.Clear()

        bojel.Fill(gitik)
        bojel.Dispose()

        gitik.Columns("Kodebarang").DefaultValue = ""
        gitik.Columns("NamaBarang").DefaultValue = ""
        gitik.Columns("unit").DefaultValue = 0
        gitik.Columns("harga").DefaultValue = 0
        gitik.Columns("jumlah").DefaultValue = 0

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


        dgv_46110006.DataSource = gitik

        Dim kabotcibay(2) As DataColumn
        kabotcibay(0) = gitik.Columns("Kodebarang")
        gitik.PrimaryKey = kabotcibay
    End Sub

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

            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
            Pencari.AturPencarianDataBase("barang", "kodebarang", dgv_46110006.CurrentRow.Cells("kodebarang").Value, 1, Jalan)
            If Pencari.JumlanBaris > 0 Then
                dgv_46110006.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)
                dgv_46110006.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)
            Else
                MsgBox("the data is not found")
                If Latihan_383940_46110006.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv_46110006.CurrentRow.Cells("kodebarang").Value = Latihan_383940_46110006.dgv_46110006.CurrentRow.Cells("KodeBarang").Value
                    dgv_46110006.CurrentRow.Cells("Namabarang").Value = Latihan_383940_46110006.dgv_46110006.CurrentRow.Cells("namabarang").Value
                End If
            End If

        ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv_46110006.CurrentRow.Cells("jumlah").Value = dgv_46110006.CurrentRow.Cells("unit").Value * dgv_46110006.CurrentRow.Cells("harga").Value
            botto()
        End If
    End Sub

    Private Sub save_46110006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_46110006.Click
        If no_46110006.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

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

        If gitik.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", no_46110006.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim kacci As New OleDb.OleDbCommand
        kacci = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & no_46110006.Text & "',#" & tanggal_46110006.Value.Month & "/" & tanggal_46110006.Value.Day & "/" & tanggal_46110006.Value.Year & "#,'" & jenis_46110006.Text & "')", Jalan)
        Jalan.Open()
        kacci.ExecuteNonQuery()
        Jalan.Close()

        For Each fitry As DataRow In gitik.Rows
            kacci = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & no_46110006.Text & "','" & fitry("kodebarang") & "'," & fitry("unit") & "," & fitry("harga") & ")", Jalan)
            Jalan.Open()
            kacci.ExecuteNonQuery()
            Jalan.Close()

        Next
        kacci.Dispose()

        no_46110006.Text = ""
        jenis_46110006.Text = ""

        gitik.Rows.Clear()

        Me.Close()

    End Sub
End Class

5. Uji program dengan mengklik debugging

6. Selesai