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

Ini adalah tutorial ketujuh atau Part 7 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. Pada Part 7 ini kita akan membuat Form Transaksi Penjualan.
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 :

Demikian Cara  Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 7 semoga bermanfaat.