Latihan_39_46110037

-->

Deskripsi 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 Table

   Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar

            Pencari.AturPencarianDataBase("barang", "kodebarang", Showme46110037.CurrentRow.Cells("kodebarang").Value, 1, Jalan)

            If Pencari.JumlanBaris > 0 Then

                Showme46110037.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)

                Showme46110037.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)

            Else

                MsgBox("the data is not found")

                If LATIHAN_383940_46110037.ShowDialog = Windows.Forms.DialogResult.OK Then

                    Showme46110037.CurrentRow.Cells("kodebarang").Value = LATIHAN_383940_46110037.view46110037.CurrentRow.Cells("KodeBarang").Value

                    Showme46110037.CurrentRow.Cells("Namabarang").Value = LATIHAN_383940_46110037.view46110037.CurrentRow.Cells("namabarang").Value

                End If

            End If

Even

Load, click

Property

TextBox -> ReadOnly

Langkah-Langkah Menjalankan Form Latihan 39 46110037

Click Start Debugging untuk menjalankan Script Latihan_39_46110037, Input data pada textbox

Langkah-langkah Menyelesaikan Form Latihan 39 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_39_46110037) dengan menggunakan Label; DataGridView; DateTimePicker, Textbox dan Button.
• Ganti nama DataGridView, Textbox, DateTimePicker dan Button di properties-Name,
• Click Kanan pada design Latihan_39_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_39_46110037

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")

    Dim INNA As New DataTable

    Private Sub HITUNGTOTAL()

        Dim ttotal As Integer

        For Each hasil As DataRow In INNA.Rows

            ttotal += hasil("Jumlah")

        Next

        Total46110037.Text = ttotal

    End Sub

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

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = 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='" & NT46110037.Text & "'", Jalan)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        INNA.Columns("Kodebarang").DefaultValue = ""

        INNA.Columns("NamaBarang").DefaultValue = ""

        INNA.Columns("unit").DefaultValue = 0

        INNA.Columns("harga").DefaultValue = 0

        INNA.Columns("jumlah").DefaultValue = 0

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

        Showme46110037.DataSource = INNA

        Dim kabotcibay(2) As DataColumn

        kabotcibay(0) = INNA.Columns("Kodebarang")

        INNA.PrimaryKey = kabotcibay

    End Sub

    Private Sub Showme46110037_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Showme46110037.CellEndEdit

        If e.ColumnIndex = 0 Then

            Showme46110037.CurrentRow.Cells("NamaBarang").Value = ""

            Showme46110037.CurrentRow.Cells("Unit").Value = 0

            Showme46110037.CurrentRow.Cells("harga").Value = 0

            Showme46110037.CurrentRow.Cells("Jumlah").Value = 0

            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar

            Pencari.AturPencarianDataBase("barang", "kodebarang", Showme46110037.CurrentRow.Cells("kodebarang").Value, 1, Jalan)

            If Pencari.JumlanBaris > 0 Then

                Showme46110037.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)

                Showme46110037.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)

            Else

                MsgBox("the data is not found")

                If LATIHAN_383940_46110037.ShowDialog = Windows.Forms.DialogResult.OK Then

                    Showme46110037.CurrentRow.Cells("kodebarang").Value = LATIHAN_383940_46110037.view46110037.CurrentRow.Cells("KodeBarang").Value

                    Showme46110037.CurrentRow.Cells("Namabarang").Value = LATIHAN_383940_46110037.view46110037.CurrentRow.Cells("namabarang").Value

                End If

            End If

        ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then

            Showme46110037.CurrentRow.Cells("jumlah").Value = Showme46110037.CurrentRow.Cells("unit").Value * Showme46110037.CurrentRow.Cells("harga").Value

            HITUNGTOTAL()

        End If

    End Sub

    Private Sub Simpan46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan46110037.Click

        If NT46110037.Text.Length = 0 Then

            MsgBox("Please, insert the Number of the transaction")

            Exit Sub

        End If

        If JT46110037.Text.Length = 0 Then

            MsgBox("Please, insert the type of the transaction")

            Exit Sub

        End If

        If INNA.Rows.Count = 0 Then

            MsgBox("the data is none")

            Exit Sub

        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar

        search.AturPencarianDataBase("mastertransaksi", "notrans", NT46110037.Text, 1, Jalan)

        If search.JumlanBaris > 0 Then

            MsgBox("the code has been exist")

            Exit Sub

        End If

        Dim MOBIL As New OleDb.OleDbCommand

        MOBIL = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT46110037.Text & "',#" & TANGGAL46110037.Value.Month & "/" & TANGGAL46110037.Value.Day & "/" & TANGGAL46110037.Value.Year & "#,'" & JT46110037.Text & "')", Jalan)

        Jalan.Open()

        MOBIL.ExecuteNonQuery()

        Jalan.Close()

        For Each MUTH As DataRow In INNA.Rows

            MOBIL = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT46110037.Text & "','" & MUTH("kodebarang") & "'," & MUTH("unit") & "," & MUTH("harga") & ")", Jalan)

            Jalan.Open()

            MOBIL.ExecuteNonQuery()

            Jalan.Close()

        Next

        MOBIL.Dispose()

        NT46110037.Text = ""

        JT46110037.Text = ""

        INNA.Rows.Clear()

        Me.Close()

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form