Membuat Aplikasi Penjualan VB .NET dgn Database MySQL – #Part 12

Ini adalah tutorial keduabelas atau Part 12 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. Pada Part ke 12 ini kita akan memvalidasi agar barang yang kita jual tidak terjadi Minus. Mari kita lanjut :
di Part 12 ini juga kita akan membuat form Laporan Penjualan data Master. Buatlah Form dengan nama : FormLapDataMaster.vb


Koding pada FormLapDataMaster adalah sebagai berikut :

Public Class FormLapDataMaster

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxCrystalReport1.ReportFileName = "lap-data-admin.rpt"
        AxCrystalReport1.WindowState = Crystal.WindowStateConstants.crptMaximized
        AxCrystalReport1.RetrieveDataFiles()
        AxCrystalReport1.Action = 1
    End Sub
End Class

kemudian untuk validasi agar barang tidak minus adalah anda menambahkan koding dibawah ini :

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            Cmd = New OdbcCommand("Select * From tbl_barang where kodebarang='" & TextBox2.Text & "'", Conn)
            Rd = Cmd.ExecuteReader
            Rd.Read()
            If Not Rd.HasRows Then
                MsgBox("Kode barang tidak Ada")
            Else
                TextBox2.Text = Rd.Item("Kodebarang")
                LBLNamaBarang.Text = Rd.Item("Namabarang")
                LBLHargaBarang.Text = Rd.Item("hargabarang")
                LBLJumlahBrg.Text = Rd.Item("JumlahBarang")
                'TextBox4.Text = Rd.Item("jumlahbarang")
                'ComboBox1.Text = Rd.Item("satuanbarang")
                TextBox3.Enabled = True
                TextBox3.Focus()
            End If
        End If
    End Sub

Tambahkan juga coding dibawah ini :

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If LBLNamaBarang.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Silahkan masukan Kode Barang dan Tekan ENTER!")
        Else
            If Val(LBLJumlahBrg.Text) < Val(TextBox3.Text) Then
                MsgBox("Barang Kurang!")
            Else
                If Val(LBLJumlahBrg.Text) < Val(TextBox3.Text) Then
                    MsgBox("Barang Kurang")
                Else
                    DataGridView1.Rows.Add(New String() {TextBox2.Text, LBLNamaBarang.Text, LBLHargaBarang.Text, TextBox3.Text, Val(LBLHargaBarang.Text) * Val(TextBox3.Text)})
                    Call RumusSubtotal()
                    TextBox2.Text = ""
                    LBLNamaBarang.Text = ""
                    LBLHargaBarang.Text = ""
                    TextBox3.Text = ""
                    TextBox3.Enabled = False
                    Call RumusCariItem()
                End If
                
            End If
           
        End If

    End Sub

Berikut video tutorial aplikasi penjualan part 12:

Demikian Cara Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 12 semoga bermanfaat. Terima kasih.