Dalam membuat program Aplikasi, penomoran otomatis menjadi salah satu fungsi penting untuk mempermudah user dalam menginput data dan mencegah kesalahan inputan. Berikut saya akan berbagi listing penomoran otomatis dengan format Bulan dan Tahun sekarang pada VB.net .
Langsung saja ..
Langkah pertama membuat Prosedur KodeOtomatis seperti berikut :
Sub KodeOtomatis()
Call Buka_DB() '/---membuka koneksi
Dim tya As String
tya = " SELECT MAX(no_kuitansi) AS data_akhir FROM pembayaran"
CMD = New Odbc.OdbcCommand(tya, CONN)
Dim DTREADER_service As Odbc.OdbcDataReader
DTREADER_service = CMD.ExecuteReader()
'/---Ambil Nilai Data Terakhir
Dim nomer_akhir As Integer = 0
If DTREADER_service.Read Then
nomer_akhir = DTREADER_service("data_akhir")
End If
DTREADER_service.Close()
CMD.Dispose()
'/---Ambil Nilai Bulan dan Tahun
Dim bulan As String = Format(Now, "MM")
Dim tahun As String = Format(Now, "yy")
Dim nomer As String = "0"
'/--- Nilai data ditambah 1
nomer_akhir = nomer_akhir + 1
'/--- Membuat nilai Nol (0000)
nomer = Microsoft.VisualBasic.Right(("0000" & NOMER_akhir), 4)
'/--- Menggabungkan Nilai Bulan, Tahun dan Nomer
Me.tnokuitansi.Text = bulan & tahun & nomer
End Sub
Jika sudah selesai, panggil prosedur kode otomatis pada saat meload form seperti ini :
Private Sub form1_Load_1....
KodeOtomatis()
End Sub
Nah coba dijalankan, jika prosedurnya benar maka No. Kuitansi yang muncul adalah : 01140001 dan seterusnya . Untuk lebih jelasnya saya sediakan link download dibawah ini, semoga bermanfaat ...
Download Penomoran Otomatis
