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
Baik mari kita lanjut :
Pastika 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 :
https://www.youtube.com/watch?v=G23oBrkqXcg
Demikian cara Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 8 semoga bermanfaat, ikuti terus tutorial dari kami selanjutnya.
Bagi anda yang mengalami kendala dan ingin bertanya, silahkan berkomentar dibawah atau anda bisa Whatspp ke saya. No WA sudah saya sertakan di Footer Web ini.
Terima kasih
0 Response to "Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 8"
Post a Comment