Desain Nomor otomatis Visual Basic
secara simple yang akan saya ajarkan hanya berupa form kecil.
Syarat yang dibutuhkan:
- Label (1)
- TextBox(1)
- Adodc (1)
- DBGRID(1)
- CommandButton(1)
setelah selesai mendesain, langkah selanjutnya adalah input code ini di form
- sub otomatis()
- dim nomor,otomatis as string
- adodc1.recordsource = "select kode_barang from barang"
- adodc1.refresh
- if adodc1.recordset.recordcount = 0 then
- otomatis = "B-001"
- else
- adodc1.recordset.movelast
- nomor= Right (adodc1.recordset!kode_barang,3)+1
- otomatis= "B-"&right("000"&nomor,3)
- end if
- textboxt1.text= otomatis
- end sub
*Setelah selesai panggil sub tersebut di Form_load dengan nama "otomatis"
Klik Like/share jika anda menyukai tulisan
ane pnya coding lbih simple gan dengan menggunakan adodc ..
BalasHapusadodc1.recordsource="select*from barang"
adodc1.refresh
with adodc1.recordset
if .BOF and .EOF then
txtkdbrg = "B-" + "001"
else
.movelast
txtkdbrg = "B-" + right(str(val(right(!kode,3))+1001),3)
ok...sip bgt tuh ilmunya...
BalasHapusklo ada objek listview / datagrid,bisa lbh simpel lg ...
Gan, tolong share dong penomoran otomatis menggunakan adotabel dengan database microsoft access dan juga contoh penomoran otomatis menggunakan adoquery dengan database microsoft access pada delphi 7.0. trimakasih gan sebelumnya.
BalasHapusini auto number di delphi bisa dikembangkan lagi
Hapushttp://www.indrawan21.com/2011/04/kode-otomatis.html