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

Ini adalah tutorial keduabelas atau saya sebut 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.

Bagi temen2 yang baru mengikuti tutorial ini, pastikan anda telah mengikuti :
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
Membuat Aplikasi Penjualan Part 10
Membuat Aplikasi Penjualan Part 11

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

   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

 
Demikian Cara Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 12 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