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

Ini adalah tutorial delapan atau Part 8 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. di Part ke 8 ini kita akan melanjutkan dalam membuat Form Transaksi Penjualan. Jika sebelumnya anda telah bisa memunculkan Kode Pelanggan di ComboBox dan Memunculkannya di Form TransJual, mari kita lanjut lagi agar bisa Input data barang kedalam datagrid view.
Baik mari kita lanjut :
Pastikan anda sudah membuat form seperti ini ya :

Kemudian pastikan koding di Part 7 sudah dimasukan, kemudian lanjutan kodingnya adalah sebagai berikut :

 Sub NomorOtomatis()
        Call Koneksi()
        Cmd = New OdbcCommand("Select * from tbl_jual where nojual in (select max(nojual) from tbl_jual)", Conn)
        Dim UrutanKode As String
        Dim Hitung As Long
        Rd = Cmd.ExecuteReader
        Rd.Read()
        If Not Rd.HasRows Then
            UrutanKode = "J" + Format(Now, "yyMMdd") + "001"
        Else
            Hitung = Microsoft.VisualBasic.Right(Rd.GetString(0), 9) + 1
            UrutanKode = "J" + Format(Now, "yyMMdd") + Microsoft.VisualBasic.Right("000" & Hitung, 3)
        End If
        LBLNoJual.Text = UrutanKode
    End Sub
    Sub BuatKolom()
        DataGridView1.Columns.Clear()
        DataGridView1.Columns.Add("Kode", "Kode")
        DataGridView1.Columns.Add("Nama", "Nama Barang")
        DataGridView1.Columns.Add("Harga", "Harga")
        DataGridView1.Columns.Add("Jumlah", "Jumlah")
        DataGridView1.Columns.Add("Subtotal", "Subtotal")
    End Sub

Video Tutorialnya bisa anda lihat di bawah ini :

Demikian cara Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 8 semoga bermanfaat