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

Ini adalah tutorial ketujuh atau saya sebut Part 7 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. Pada Part 7 ini kita akan membuat Form Transaksi Penjualan.

Bagi temen2 yang baru gabung pastikan sudah mengikuti tutorial sebelumnya ya :
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
 
Jika sudah, silahkan buat form Transaksi Penjualan
Buka Project Aplikasi Penjualan anda
Kemudian Klik Project --> Add Windows Form
Buat form dengan nama : FormTransJual
Design seperti gambar dibawah ini :

 Jika sudah masukan koding di FormTransJual seperti dibawah ini

Imports System.Data.Odbc
Public Class FormTransJual
    Sub KondisiAwal()
        LBLNamaPlg.Text = ""
        LBLAlamat.Text = ""
        LBLTelepon.Text = ""
        LBLTanggal.Text = Today
        LBLAdmin.Text = FormMenuUtama.STLabel4.Text
        LBLKembali.Text = ""

    End Sub
   
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        LBLJam.Text = TimeOfDay
    End Sub

    Private Sub FormTransJual_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
        Call MunculKodePelanggan()
    End Sub
    Sub MunculKodePelanggan()
        Call Koneksi()
        Cmd = New OdbcCommand("Select * from tbl_Pelanggan", Conn)
        Rd = Cmd.ExecuteReader
        Do While Rd.Read
            ComboBox1.Items.Add(Rd.Item(0))
        Loop
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Call Koneksi()
        Cmd = New OdbcCommand("Select * from tbl_Pelanggan where kodepelanggan ='" & ComboBox1.Text & "'", Conn)
        Rd = Cmd.ExecuteReader
        Rd.Read()
        If Rd.HasRows Then
            LBLNamaPlg.Text = Rd!NamaPelanggan
            LBLAlamat.Text = Rd!AlamatPelanggan
        End If
    End Sub
End Class

Jika sudah dimasukan, silahkan di running Aplikasinya,
Jika kurang jelas, silahkan lihat video dibawah :

Untuk melihat Video Tutorial Part 7 ini :

https://www.youtube.com/watch?v=HXvCjZILDx8

Demikian Cara  Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 7 semoga bermanfaat dan ikuti terus tutorial selanjutnya
Bagi temen2 yang mempunyai kendala atau error silahkan komentar atau bisa WhatsApp ke saya, no WA sudah saya sertakan di Footer Web ini.
Terima kasih

Tweet