Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 10

Ini adalah tutorial kesepuluh atau saya sebut Part 10 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. Pada part ke 10 ini kita akan melanjutkan kembali dalam membuat Form Transaksi Penjualan.

Jika temen2 baru gabung, pastikan anda telah mengikuti tutorial sebelumnya :
Membuat Aplikasi Penjualan Part 1
Membuat Aplikasi Penjualan Part 2
Membuat Aplikasi Penjualan Part 3
Membuat Aplikasi Penjualan Part 4
Membuat Aplikasi Penjualan Part 5
Membuat Aplikasi Penjualan Part 6
Membuat Aplikasi Penjualan Part 7
Membuat Aplikasi Penjualan Part 8
Membuat Aplikasi Penjualan Part 9

Mari kita lanjut, pastikan anda sudah membuka project Aplikasi Penjualan anda

Kemudian di Part 10 ini kita memasukan tamabahan koding :

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            If Val(TextBox1.Text) < Val(Label9.Text) Then
                MsgBox("Pemabayaran Kurang!")
            ElseIf Val(TextBox1.Text) = Val(Label9.Text) Then
                LBLKembali.Text = 0
            ElseIf Val(TextBox1.Text) > Val(Label9.Text) Then
                LBLKembali.Text = Val(TextBox1.Text) - Val(Label9.Text)
                Button1.Focus()
            End If
        End If
    End Sub
    Sub RumusCariItem()
        Dim HitungItem As Integer = 0
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            HitungItem = HitungItem + DataGridView1.Rows(i).Cells(3).Value
            LBLItem.Text = HitungItem
        Next
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If LBLKembali.Text = "" Or LBLNamaPlg.Text = "" Or Label9.Text = "" Then
            MsgBox("Transaksi Tidak Ada, silahkan lakukan transaksi terlebih dahulu")
        Else
            TglMySQL = Format(Today, "yyyy-MM-dd")
            Dim SimpanJual As String = "Insert into tbl_jual values ('" & LBLNoJual.Text & "', '" & TglMySQL & "', '" & LBLJam.Text & "', '" & LBLItem.Text & "', '" & Label9.Text & "', '" & TextBox1.Text & "', '" & LBLKembali.Text & "', '" & ComboBox1.Text & "', '" & FormMenuUtama.STLabel2.Text & "') "
            Cmd = New OdbcCommand(SimpanJual, Conn)
            Cmd.ExecuteNonQuery()

            For Baris As Integer = 0 To DataGridView1.Rows.Count - 2
                Dim SimpanDetail As String = "Insert into tbl_detailjual values('" & LBLNoJual.Text & "', '" & DataGridView1.Rows(Baris).Cells(0).Value & "', '" & DataGridView1.Rows(Baris).Cells(1).Value & "', '" & DataGridView1.Rows(Baris).Cells(2).Value & "', '" & DataGridView1.Rows(Baris).Cells(3).Value & "','" & DataGridView1.Rows(Baris).Cells(4).Value & "')"
                Cmd = New OdbcCommand(SimpanDetail, Conn)
                Cmd.ExecuteNonQuery()

                Cmd = New OdbcCommand("select * from tbl_barang where kodebarang='" & DataGridView1.Rows(Baris).Cells(0).Value & "'", Conn)
                Rd = Cmd.ExecuteReader
                Rd.Read()
                Dim KurangiStok As String = "Update tbl_Barang set JumlahBarang = '" & Rd.Item("JumlahBarang") - DataGridView1.Rows(Baris).Cells(3).Value & "' where KodeBarang='" & DataGridView1.Rows(Baris).Cells(0).Value & "'"
                Cmd = New OdbcCommand(KurangiStok, Conn)
                Cmd.ExecuteNonQuery()
            Next
            Call KondisiAwal()
            MsgBox("Transaksi Telah Berhasil Disimpan")

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

Koding diatas adalah untuk memunculkan kembalian dari pembayaran penjual dan memunculkan Total dari detail barang yang akan dijual

Video Tutorial Part ke 10

https://www.youtube.com/watch?v=z8kU3-RpFGA

Demikian Cara Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 10 semoga bermanfaat, ikuti terus tutorial dari kami selanjutnya
Jika ada kendala atau error silahkan anda bisa berkomentar dibawah atau anda bisa WhatsApp ke saya, No WA sudah saya cantumkan di footer Web JNM ini
Terima kasih

Tweet