edukasiinformatikaragamteknologi

cara penomoran otomatis vb 6

cara penomoran otomatis vb 6- Penomoran otomatis adalah fasilitas yang harus ada disetiap aplikasi yang akan kita buat, namun terkadang kita bingung untuk mengimplementassikannya khususnya di pemrograman vb 6.0.
Kali ini saya akan share kode penomoran otomatis di vb 6.0. silahkan sobat cek source dibawah:
buat sebuah sub:
form vb6

Sub cek_kode()
Set rsMember = New Recordset
strSQL = “SELECT * FROM Member ORDER BY kode_member DESC”
rsMember.Open strSQL, cn.cnKoneksi, adOpenForwardOnly
If Not rsMember.BOF Then
rsMember.MoveFirst
kode_lama = rsMember(“kode_member”)
cekHuruf = “M”
cekAngka = Right(kode_lama, 4)
angkabaru = Int(cekAngka) + 1
If Len(angkabaru) = 1 Then
kode = “000” & angkabaru
ElseIf Len(angkabaru) = 2 Then
kode = “00” & angkabaru
ElseIf Len(angkabaru) = 3 Then
kode = “0” & angkabaru
End If
kode_baru = cekHuruf & kode
txtKodeMember.Text = kode_baru
Else
angkabaru = 1
If Len(angkabaru) = 1 Then
kode = “000” & angkabaru
ElseIf Len(angkabaru) = 2 Then
kode = “00” & angkabaru
ElseIf Len(angkabaru) = 3 Then
kode = “0” & angkabaru
End If
kode_baru = cekHuruf & kode
txtKodeMember.Text = kode_baru
End If
End Sub

Penjelasan:

Sub cek_kode()
‘deklarasiin dulu diatas: dim rsMember as ADODB.recordset
jangan lupa buka koneksinya (ADODB.Connection)
Set rsMember = New Recordset
‘query untuk menampilkan data member secara descending
strSQL = “SELECT * FROM Member ORDER BY kode_member DESC”
rsMember.Open strSQL, cn.cnKoneksi, adOpenForwardOnly
If Not rsMember.BOF Then
rsMember.MoveFirst
‘simpan kode yang ada di database paling atas/utama
kode_lama = rsMember(“kode_member”)
‘1 digit pertamanya adalah huruf M, kalau mau menggunakan huruf yg berbeda2, bisa menggunakan fungsi Left(kode_lama,1) oke jg)
cekHuruf = “M”
‘4 digit sisanya adalah susunan angka yang terurut
cekAngka = Right(kode_lama, 4)
‘tambahkan angkanya dengan 1 (increment)
angkabaru = Int(cekAngka) + 1
‘jika panjangnya 1 digit (misal angkabaru=2+1)
If Len(angkabaru) = 1 Then
‘tambahkan 000 sehingga menjadi 0003
kode = “000” & angkabaru
‘misalkan angkabaru= 20+1
ElseIf Len(angkabaru) = 2 Then
‘tambahkan 00 sehingga menjadi 0021
kode = “00” & angkabaru
‘misalkan angkabaru= 200+1
ElseIf Len(angkabaru) = 3 Then
‘tambahkan 00 sehingga menjadi 0201
kode = “0” & angkabaru
End If
‘kode yang baru adalah cekHuruf “M” diAND dengan kode “0001” sehingga menjadi M0001
kode_baru = cekHuruf & kode
‘pindahkan nilai kode_baru ke textbox yang diinginkan
txtKodeMember.Text = kode_baru
Else
‘jika tidak ditemukan kode_trx di database, maka lakukan penghitungan mulai 1
angkabaru = 1
‘langkahnya sama seprti diatas
If Len(angkabaru) = 1 Then
kode = “000” & angkabaru
ElseIf Len(angkabaru) = 2 Then
kode = “00” & angkabaru
ElseIf Len(angkabaru) = 3 Then
kode = “0” & angkabaru
End If
kode_baru = cekHuruf & kode
txtKodeMember.Text = kode_baru
End If
End Sub

nah, sub ini bisa dipanggil kapanpun, misalnya ketika load form

Private Sub Form Load()
cek_kode
End Sub

Monggo,silahkan di copas untuk kepentingan belajar. hehe
penulis: Dede firmansyah­čśŐ

Comment here